home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 24.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 31 3a 31 | 36 20 31 39 39 35 0a 3b | 14:51:1|6 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 6b 6f 74 6c 2f 6b 76 69 |perbole/|kotl/kvi|
|000000a0| 65 77 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ew.el.;;|; emacs |
|000000b0| 76 65 72 73 69 6f 6e 20 | 31 39 2e 31 33 20 58 45 |version |19.13 XE|
|000000c0| 6d 61 63 73 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |macs Luc|id..;;; |
|000000d0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000e0| 20 32 2e 32 35 3b 20 31 | 2d 53 65 70 2d 39 34 2e | 2.25; 1|-Sep-94.|
|000000f0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|00000100| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|00000110| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|00000120| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|00000130| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000140| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000150| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000170| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000180| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000190| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|).. |
|000001a0| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|000001b0| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001c0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))). |(error "|
|000001d0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001e0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001f0| 20 31 39 2e 22 29 29 0a | 0a 28 62 79 74 65 2d 63 | 19.")).|.(byte-c|
|00000200| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c3 c4 c5 5c 22 |ode "...|\"....\"|
|00000210| 87 22 20 5b 6d 61 70 63 | 61 72 20 72 65 71 75 69 |." [mapc|ar requi|
|00000220| 72 65 20 28 6b 6c 61 62 | 65 6c 20 6b 66 69 6c 6c |re (klab|el kfill|
|00000230| 20 68 79 70 62 29 20 73 | 65 74 2d 64 65 66 61 75 | hypb) s|et-defau|
|00000240| 6c 74 20 6b 76 69 65 77 | 20 6e 69 6c 5d 20 33 29 |lt kview| nil] 3)|
|00000250| 0a 28 64 65 66 76 61 72 | 20 6b 76 69 65 77 3a 64 |.(defvar| kview:d|
|00000260| 65 66 61 75 6c 74 2d 6c | 61 62 65 6c 2d 6d 69 6e |efault-l|abel-min|
|00000270| 2d 77 69 64 74 68 20 34 | 20 22 5c 0a 2a 4d 69 6e |-width 4| "\.*Min|
|00000280| 69 6d 75 6d 20 77 69 64 | 74 68 20 74 6f 20 77 68 |imum wid|th to wh|
|00000290| 69 63 68 20 74 6f 20 70 | 61 64 20 6c 61 62 65 6c |ich to p|ad label|
|000002a0| 73 20 69 6e 20 61 20 6b | 6f 74 6c 20 76 69 65 77 |s in a k|otl view|
|000002b0| 2e 0a 4c 61 62 65 6c 73 | 20 61 72 65 20 70 61 64 |..Labels| are pad|
|000002c0| 64 65 64 20 77 69 74 68 | 20 73 70 61 63 65 73 20 |ded with| spaces |
|000002d0| 6f 6e 20 74 68 65 20 6c | 65 66 74 2e 22 29 0a 28 |on the l|eft.").(|
|000002e0| 64 65 66 76 61 72 20 6b | 76 69 65 77 3a 64 65 66 |defvar k|view:def|
|000002f0| 61 75 6c 74 2d 6c 61 62 | 65 6c 2d 73 65 70 61 72 |ault-lab|el-separ|
|00000300| 61 74 6f 72 20 22 20 20 | 22 20 22 5c 0a 2a 44 65 |ator " |" "\.*De|
|00000310| 66 61 75 6c 74 20 73 74 | 72 69 6e 67 20 6f 66 20 |fault st|ring of |
|00000320| 63 68 61 72 61 63 74 65 | 72 73 20 74 6f 20 69 6e |characte|rs to in|
|00000330| 73 65 72 74 20 62 65 74 | 77 65 65 6e 20 6c 61 62 |sert bet|ween lab|
|00000340| 65 6c 20 61 6e 64 20 63 | 6f 6e 74 65 6e 74 73 20 |el and c|ontents |
|00000350| 6f 66 20 61 20 6b 6f 74 | 6c 20 63 65 6c 6c 20 76 |of a kot|l cell v|
|00000360| 69 65 77 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6b |iew.").(|defvar k|
|00000370| 76 69 65 77 3a 64 65 66 | 61 75 6c 74 2d 6c 61 62 |view:def|ault-lab|
|00000380| 65 6c 2d 74 79 70 65 20 | 27 61 6c 70 68 61 20 22 |el-type |'alpha "|
|00000390| 5c 0a 2a 44 65 66 61 75 | 6c 74 20 6c 61 62 65 6c |\.*Defau|lt label|
|000003a0| 2d 74 79 70 65 20 74 6f | 20 75 73 65 20 66 6f 72 |-type to| use for|
|000003b0| 20 6e 65 77 20 76 69 65 | 77 73 2e 0a 49 74 20 6d | new vie|ws..It m|
|000003c0| 75 73 74 20 62 65 20 6f | 6e 65 20 6f 66 20 74 68 |ust be o|ne of th|
|000003d0| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 73 79 6d 62 |e follow|ing symb|
|000003e0| 6f 6c 73 3a 0a 20 20 6e | 6f 20 20 20 20 20 20 20 |ols:. n|o |
|000003f0| 20 20 20 20 20 20 20 66 | 6f 72 20 6e 6f 20 6c 61 | f|or no la|
|00000400| 62 65 6c 73 0a 20 20 69 | 64 20 20 20 20 20 20 20 |bels. i|d |
|00000410| 20 20 20 20 20 20 20 66 | 6f 72 20 70 65 72 6d 61 | f|or perma|
|00000420| 6e 65 6e 74 20 69 64 73 | 74 61 6d 70 20 6c 61 62 |nent ids|tamp lab|
|00000430| 65 6c 73 2c 20 65 2e 67 | 2e 20 30 30 31 2c 20 30 |els, e.g|. 001, 0|
|00000440| 30 32 2c 20 65 74 63 2e | 0a 20 20 61 6c 70 68 61 |02, etc.|. alpha|
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 66 6f 72 20 27 | | for '|
|00000460| 31 61 32 27 20 66 75 6c | 6c 20 61 6c 70 68 61 6e |1a2' ful|l alphan|
|00000470| 75 6d 65 72 69 63 20 6c | 61 62 65 6c 73 0a 20 20 |umeric l|abels. |
|00000480| 6c 65 67 61 6c 20 20 20 | 20 20 20 20 20 20 20 20 |legal | |
|00000490| 66 6f 72 20 27 31 2e 31 | 2e 32 27 20 6c 61 62 65 |for '1.1|.2' labe|
|000004a0| 6c 73 0a 20 20 70 61 72 | 74 69 61 6c 2d 61 6c 70 |ls. par|tial-alp|
|000004b0| 68 61 20 20 20 66 6f 72 | 20 70 61 72 74 69 61 6c |ha for| partial|
|000004c0| 20 61 6c 70 68 61 6e 75 | 6d 65 72 69 63 20 6c 61 | alphanu|meric la|
|000004d0| 62 65 6c 73 2c 20 65 2e | 67 2e 20 27 32 27 20 66 |bels, e.|g. '2' f|
|000004e0| 6f 72 20 6e 6f 64 65 20 | 27 31 61 32 27 0a 20 20 |or node |'1a2'. |
|000004f0| 73 74 61 72 20 20 20 20 | 20 20 20 20 20 20 20 20 |star | |
|00000500| 66 6f 72 20 6d 75 6c 74 | 69 2d 73 74 61 72 20 6c |for mult|i-star l|
|00000510| 61 62 65 6c 69 6e 67 2c | 20 65 2e 67 2e 20 27 2a |abeling,| e.g. '*|
|00000520| 2a 2a 27 2e 22 29 0a 28 | 64 65 66 76 61 72 20 6b |**'.").(|defvar k|
|00000530| 76 69 65 77 3a 64 65 66 | 61 75 6c 74 2d 6c 65 76 |view:def|ault-lev|
|00000540| 65 6c 2d 69 6e 64 65 6e | 74 20 33 20 22 5c 0a 2a |el-inden|t 3 "\.*|
|00000550| 44 65 66 61 75 6c 74 20 | 6e 75 6d 62 65 72 20 6f |Default |number o|
|00000560| 66 20 73 70 61 63 65 73 | 20 74 6f 20 69 6e 64 65 |f spaces| to inde|
|00000570| 6e 74 20 65 61 63 68 20 | 73 75 63 63 65 65 64 69 |nt each |succeedi|
|00000580| 6e 67 20 6c 65 76 65 6c | 20 69 6e 20 6b 6f 74 6c |ng level| in kotl|
|00000590| 20 76 69 65 77 73 2e 22 | 29 0a 28 66 73 65 74 20 | views."|).(fset |
|000005a0| 27 6b 63 65 6c 6c 2d 76 | 69 65 77 3a 62 61 63 6b |'kcell-v|iew:back|
|000005b0| 77 61 72 64 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ward #[(|&optiona|
|000005c0| 6c 20 76 69 73 69 62 6c | 65 2d 70 20 6c 61 62 65 |l visibl|e-p labe|
|000005d0| 6c 2d 73 65 70 2d 6c 65 | 6e 29 20 22 08 ac 84 c1 |l-sep-le|n) "....|
|000005e0| 5c 6e 21 10 60 c3 89 c4 | c5 c3 08 5c 22 1e 06 1e |\n!.`...|...\"...|
|000005f0| 07 1e 08 1e 09 1e 5c 6e | 0e 09 ac bf 0e 08 ac bb |......\n|........|
|00000600| cb 0e 0c 08 5c 22 ab b4 | 6f ab 89 cd 16 08 0e 5c |....\"..|o......\|
|00000610| 6e 62 88 aa 65 c5 c3 08 | 5c 22 89 16 07 0e 06 55 |nb..e...|\".....U|
|00000620| ab 8c ce c3 08 5c 22 62 | 88 cd 89 16 09 aa 4f 0e |.....\"b|......O.|
|00000630| 07 0e 06 57 ab 46 cd 16 | 08 0e 5c 6e 62 88 aa 3d |...W.F..|..\nb..=|
|00000640| 0e 09 2d 87 22 20 5b 6c | 61 62 65 6c 2d 73 65 70 |..-." [l|abel-sep|
|00000650| 2d 6c 65 6e 20 6b 76 69 | 65 77 3a 6c 61 62 65 6c |-len kvi|ew:label|
|00000660| 2d 73 65 70 61 72 61 74 | 6f 72 2d 6c 65 6e 67 74 |-separat|or-lengt|
|00000670| 68 20 6b 76 69 65 77 20 | 6e 69 6c 20 30 20 6b 63 |h kview |nil 0 kc|
|00000680| 65 6c 6c 2d 76 69 65 77 | 3a 69 6e 64 65 6e 74 20 |ell-view|:indent |
|00000690| 73 74 61 72 74 2d 69 6e | 64 65 6e 74 20 63 75 72 |start-in|dent cur|
|000006a0| 72 2d 69 6e 64 65 6e 74 | 20 64 6f 6e 65 20 66 6f |r-indent| done fo|
|000006b0| 75 6e 64 20 6f 70 6f 69 | 6e 74 20 6b 63 65 6c 6c |und opoi|nt kcell|
|000006c0| 2d 76 69 65 77 3a 70 72 | 65 76 69 6f 75 73 20 76 |-view:pr|evious v|
|000006d0| 69 73 69 62 6c 65 2d 70 | 20 74 20 6b 63 65 6c 6c |isible-p| t kcell|
|000006e0| 2d 76 69 65 77 3a 73 74 | 61 72 74 5d 20 38 20 22 |-view:st|art] 8 "|
|000006f0| 5c 0a 4d 6f 76 65 20 74 | 6f 20 73 74 61 72 74 20 |\.Move t|o start |
|00000700| 6f 66 20 74 68 65 20 70 | 72 69 6f 72 20 63 65 6c |of the p|rior cel|
|00000710| 6c 20 61 74 20 74 68 65 | 20 73 61 6d 65 20 6c 65 |l at the| same le|
|00000720| 76 65 6c 20 61 73 20 74 | 68 65 20 63 75 72 72 65 |vel as t|he curre|
|00000730| 6e 74 20 63 65 6c 6c 2e | 0a 57 69 74 68 20 6f 70 |nt cell.|.With op|
|00000740| 74 69 6f 6e 61 6c 20 56 | 49 53 49 42 4c 45 2d 50 |tional V|ISIBLE-P|
|00000750| 2c 20 63 6f 6e 73 69 64 | 65 72 20 6f 6e 6c 79 20 |, consid|er only |
|00000760| 76 69 73 69 62 6c 65 20 | 63 65 6c 6c 73 2e 0a 52 |visible |cells..R|
|00000770| 65 74 75 72 6e 20 74 20 | 75 6e 6c 65 73 73 20 6e |eturn t |unless n|
|00000780| 6f 20 73 75 63 68 20 63 | 65 6c 6c 2e 22 5d 29 0a |o such c|ell."]).|
|00000790| 28 66 73 65 74 20 27 6b | 76 69 65 77 3a 62 65 67 |(fset 'k|view:beg|
|000007a0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 61 63 74 75 61 6c |inning-o|f-actual|
|000007b0| 2d 6c 69 6e 65 20 23 5b | 6e 69 6c 20 22 c0 c1 c2 |-line #[|nil "...|
|000007c0| c3 23 ad 82 c4 75 87 22 | 20 5b 72 65 2d 73 65 61 |.#...u."| [re-sea|
|000007d0| 72 63 68 2d 62 61 63 6b | 77 61 72 64 20 22 5b 5c |rch-back|ward "[\|
|000007e0| 6e 0d 5d 22 20 6e 69 6c | 20 6d 6f 76 65 20 31 5d |n.]" nil| move 1]|
|000007f0| 20 34 20 22 5c 0a 47 6f | 20 74 6f 20 74 68 65 20 | 4 "\.Go| to the |
|00000800| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 74 68 65 |beginnin|g of the|
|00000810| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 20 77 68 | current| line wh|
|00000820| 65 74 68 65 72 20 63 6f | 6c 6c 61 70 73 65 64 20 |ether co|llapsed |
|00000830| 6f 72 20 6e 6f 74 2e 22 | 5d 29 0a 28 66 73 65 74 |or not."|]).(fset|
|00000840| 20 27 6b 63 65 6c 6c 2d | 76 69 65 77 3a 63 65 6c | 'kcell-|view:cel|
|00000850| 6c 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 70 |l #[(&op|tional p|
|00000860| 6f 73 29 20 22 c0 c1 5c | 6e 21 c3 5c 22 87 22 20 |os) "..\|n!.\"." |
|00000870| 5b 6b 70 72 6f 70 65 72 | 74 79 3a 67 65 74 20 6b |[kproper|ty:get k|
|00000880| 63 65 6c 6c 2d 76 69 65 | 77 3a 70 6c 69 73 74 2d |cell-vie|w:plist-|
|00000890| 70 6f 69 6e 74 20 70 6f | 73 20 6b 63 65 6c 6c 5d |point po|s kcell]|
|000008a0| 20 33 20 22 5c 0a 52 65 | 74 75 72 6e 20 6b 63 65 | 3 "\.Re|turn kce|
|000008b0| 6c 6c 20 61 74 20 6f 70 | 74 69 6f 6e 61 6c 20 50 |ll at op|tional P|
|000008c0| 4f 53 20 6f 72 20 70 6f | 69 6e 74 2e 22 5d 29 0a |OS or po|int."]).|
|000008d0| 28 66 73 65 74 20 27 6b | 63 65 6c 6c 2d 76 69 65 |(fset 'k|cell-vie|
|000008e0| 77 3a 63 68 69 6c 64 20 | 23 5b 28 26 6f 70 74 69 |w:child |#[(&opti|
|000008f0| 6f 6e 61 6c 20 6c 61 62 | 65 6c 2d 73 65 70 2d 6c |onal lab|el-sep-l|
|00000900| 65 6e 29 20 22 60 18 c1 | c2 0b 5c 22 1c c5 c2 0b |en) "`..|..\"....|
|00000910| 5c 22 1e 06 0b ac 85 c7 | 0e 08 21 13 0e 06 ab 88 |\"......|..!.....|
|00000920| 69 0c 56 ab 83 c9 aa 84 | 08 62 88 c2 2b 87 22 20 |i.V.....|.b..+." |
|00000930| 5b 6f 70 6f 69 6e 74 20 | 6b 63 65 6c 6c 2d 76 69 |[opoint |kcell-vi|
|00000940| 65 77 3a 69 6e 64 65 6e | 74 20 6e 69 6c 20 6c 61 |ew:inden|t nil la|
|00000950| 62 65 6c 2d 73 65 70 2d | 6c 65 6e 20 70 72 65 76 |bel-sep-|len prev|
|00000960| 2d 69 6e 64 65 6e 74 20 | 6b 63 65 6c 6c 2d 76 69 |-indent |kcell-vi|
|00000970| 65 77 3a 6e 65 78 74 20 | 6e 65 78 74 20 6b 76 69 |ew:next |next kvi|
|00000980| 65 77 3a 6c 61 62 65 6c | 2d 73 65 70 61 72 61 74 |ew:label|-separat|
|00000990| 6f 72 2d 6c 65 6e 67 74 | 68 20 6b 76 69 65 77 20 |or-lengt|h kview |
|000009a0| 74 5d 20 33 20 22 5c 0a | 4d 6f 76 65 20 74 6f 20 |t] 3 "\.|Move to |
|000009b0| 73 74 61 72 74 20 6f 66 | 20 63 75 72 72 65 6e 74 |start of| current|
|000009c0| 20 63 65 6c 6c 27 73 20 | 63 68 69 6c 64 20 77 69 | cell's |child wi|
|000009d0| 74 68 69 6e 20 63 75 72 | 72 65 6e 74 20 76 69 65 |thin cur|rent vie|
|000009e0| 77 2e 0a 52 65 74 75 72 | 6e 20 74 20 75 6e 6c 65 |w..Retur|n t unle|
|000009f0| 73 73 20 63 65 6c 6c 20 | 68 61 73 20 6e 6f 20 63 |ss cell |has no c|
|00000a00| 68 69 6c 64 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 4c |hild..Op|tional L|
|00000a10| 41 42 45 4c 2d 53 45 50 | 2d 4c 45 4e 20 69 73 20 |ABEL-SEP|-LEN is |
|00000a20| 74 68 65 20 6c 65 6e 67 | 74 68 20 6f 66 20 74 68 |the leng|th of th|
|00000a30| 65 20 73 65 70 61 72 61 | 74 69 6f 6e 20 62 65 74 |e separa|tion bet|
|00000a40| 77 65 65 6e 0a 61 20 63 | 65 6c 6c 27 73 20 6c 61 |ween.a c|ell's la|
|00000a50| 62 65 6c 20 61 6e 64 20 | 74 68 65 20 73 74 61 72 |bel and |the star|
|00000a60| 74 20 6f 66 20 69 74 73 | 20 63 6f 6e 74 65 6e 74 |t of its| content|
|00000a70| 73 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 6b 63 65 |s."]).(f|set 'kce|
|00000a80| 6c 6c 2d 76 69 65 77 3a | 63 6f 6c 6c 61 70 73 65 |ll-view:|collapse|
|00000a90| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 70 6f | #[(&opt|ional po|
|00000aa0| 73 20 6c 61 62 65 6c 2d | 73 65 70 2d 6c 65 6e 29 |s label-|sep-len)|
|00000ab0| 20 22 8a c0 09 5c 6e 5c | 22 62 88 c3 60 c4 20 c5 | "...\n\|"b..`. .|
|00000ac0| c6 c7 25 29 87 22 20 5b | 6b 63 65 6c 6c 2d 76 69 |..%)." [|kcell-vi|
|00000ad0| 65 77 3a 73 74 61 72 74 | 20 70 6f 73 20 6c 61 62 |ew:start| pos lab|
|00000ae0| 65 6c 2d 73 65 70 2d 6c | 65 6e 20 73 75 62 73 74 |el-sep-l|en subst|
|00000af0| 2d 63 68 61 72 2d 69 6e | 2d 72 65 67 69 6f 6e 20 |-char-in|-region |
|00000b00| 6b 63 65 6c 6c 2d 76 69 | 65 77 3a 65 6e 64 2d 63 |kcell-vi|ew:end-c|
|00000b10| 6f 6e 74 65 6e 74 73 20 | 31 30 20 31 33 20 74 5d |ontents |10 13 t]|
|00000b20| 20 36 20 22 5c 0a 43 6f | 6c 6c 61 70 73 65 20 63 | 6 "\.Co|llapse c|
|00000b30| 65 6c 6c 20 61 74 20 6f | 70 74 69 6f 6e 61 6c 20 |ell at o|ptional |
|00000b40| 50 4f 53 20 6f 72 20 70 | 6f 69 6e 74 20 77 69 74 |POS or p|oint wit|
|00000b50| 68 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |hin the |current |
|00000b60| 76 69 65 77 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |view."])|.(fset '|
|00000b70| 6b 63 65 6c 6c 2d 76 69 | 65 77 3a 63 6f 6c 6c 61 |kcell-vi|ew:colla|
|00000b80| 70 73 65 64 2d 70 20 23 | 5b 28 26 6f 70 74 69 6f |psed-p #|[(&optio|
|00000b90| 6e 61 6c 20 70 6f 73 20 | 6c 61 62 65 6c 2d 73 65 |nal pos |label-se|
|00000ba0| 70 2d 6c 65 6e 29 20 22 | 8a c0 09 5c 6e 5c 22 62 |p-len) "|...\n\"b|
|00000bb0| 88 c3 c4 c5 20 c6 23 ad | 81 c6 29 87 22 20 5b 6b |.... .#.|..)." [k|
|00000bc0| 63 65 6c 6c 2d 76 69 65 | 77 3a 73 74 61 72 74 20 |cell-vie|w:start |
|00000bd0| 70 6f 73 20 6c 61 62 65 | 6c 2d 73 65 70 2d 6c 65 |pos labe|l-sep-le|
|00000be0| 6e 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |n search|-forward|
|00000bf0| 20 22 0d 22 20 6b 63 65 | 6c 6c 2d 76 69 65 77 3a | "." kce|ll-view:|
|00000c00| 65 6e 64 2d 63 6f 6e 74 | 65 6e 74 73 20 74 5d 20 |end-cont|ents t] |
|00000c10| 34 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 20 69 66 |4 "\.Ret|urn t if|
|00000c20| 20 63 65 6c 6c 20 61 74 | 20 6f 70 74 69 6f 6e 61 | cell at| optiona|
|00000c30| 6c 20 50 4f 53 20 6f 72 | 20 70 6f 69 6e 74 20 69 |l POS or| point i|
|00000c40| 73 20 63 6f 6c 6c 61 70 | 73 65 64 20 77 69 74 68 |s collap|sed with|
|00000c50| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 76 |in the c|urrent v|
|00000c60| 69 65 77 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6b |iew."]).|(fset 'k|
|00000c70| 63 65 6c 6c 2d 76 69 65 | 77 3a 63 6f 6e 74 65 6e |cell-vie|w:conten|
|00000c80| 74 73 20 23 5b 6e 69 6c | 20 22 c0 20 c1 20 c2 20 |ts #[nil| ". . . |
|00000c90| 1b 1c 1d c6 c7 c8 0d c9 | 5c 22 50 0c 0b 7b ca 23 |........|\"P..{.#|
|00000ca0| 2b 87 22 20 5b 6b 63 65 | 6c 6c 2d 76 69 65 77 3a |+." [kce|ll-view:|
|00000cb0| 69 6e 64 65 6e 74 20 6b | 63 65 6c 6c 2d 76 69 65 |indent k|cell-vie|
|00000cc0| 77 3a 73 74 61 72 74 20 | 6b 63 65 6c 6c 2d 76 69 |w:start |kcell-vi|
|00000cd0| 65 77 3a 65 6e 64 2d 63 | 6f 6e 74 65 6e 74 73 20 |ew:end-c|ontents |
|00000ce0| 65 6e 64 20 73 74 61 72 | 74 20 69 6e 64 65 6e 74 |end star|t indent|
|00000cf0| 20 68 79 70 62 3a 72 65 | 70 6c 61 63 65 2d 6d 61 | hypb:re|place-ma|
|00000d00| 74 63 68 2d 73 74 72 69 | 6e 67 20 22 5c 5c 28 5b |tch-stri|ng "\\([|
|00000d10| 5c 6e 0d 5d 5c 5c 29 22 | 20 6d 61 6b 65 2d 73 74 |\n.]\\)"| make-st|
|00000d20| 72 69 6e 67 20 33 32 20 | 22 5c 5c 31 22 5d 20 35 |ring 32 |"\\1"] 5|
|00000d30| 20 22 5c 0a 52 65 74 75 | 72 6e 20 63 6f 6e 74 65 | "\.Retu|rn conte|
|00000d40| 6e 74 73 20 6f 66 20 63 | 75 72 72 65 6e 74 20 6b |nts of c|urrent k|
|00000d50| 76 69 65 77 20 63 65 6c | 6c 20 61 73 20 61 20 73 |view cel|l as a s|
|00000d60| 74 72 69 6e 67 2e 22 5d | 29 0a 28 66 73 65 74 20 |tring."]|).(fset |
|00000d70| 27 6b 63 65 6c 6c 2d 76 | 69 65 77 3a 63 72 65 61 |'kcell-v|iew:crea|
|00000d80| 74 65 20 23 5b 28 6b 76 | 69 65 77 20 63 65 6c 6c |te #[(kv|iew cell|
|00000d90| 20 6c 65 76 65 6c 20 6b | 6c 61 62 65 6c 20 26 6f | level k|label &o|
|00000da0| 70 74 69 6f 6e 61 6c 20 | 6e 6f 2d 66 69 6c 6c 29 |ptional |no-fill)|
|00000db0| 20 22 c0 09 21 c2 55 3f | 85 ad 00 c3 0c 21 1d c6 | "..!.U?|.....!..|
|00000dc0| c7 0d 5c 22 1e 08 0e 09 | ca 98 ab 83 ca aa 86 c6 |..\"....|........|
|00000dd0| 0e 08 0e 09 5c 22 1e 0b | 0e 09 ca 98 ab 83 cc aa |....\"..|........|
|00000de0| 83 cd 0c 21 1e 0e 0e 0f | 53 d0 0c 21 5f 89 1e 11 |...!....|S..!_...|
|00000df0| 0d 0e 0e 47 5c 5c 5c 5c | 1e 12 60 1e 13 d4 0e 12 |...G\\\\|..`.....|
|00000e00| d5 5c 22 1e 16 d7 1e 18 | d7 1e 19 0e 1a ab 86 db |.\".....|........|
|00000e10| 09 da dc 23 88 0e 16 63 | 88 dd 09 d7 0e 1a 23 16 |...#...c|......#.|
|00000e20| 18 0e 1a ac 86 0e 18 ca | 9a ab 83 de aa 81 df 63 |........|.......c|
|00000e30| 88 e0 20 88 60 16 19 0e | 13 62 88 e1 0e 12 21 88 |.. .`...|.b....!.|
|00000e40| c6 89 c7 0e 12 0e 0e 47 | 5a 5c 22 0e 0b 5c 22 63 |.......G|Z\"..\"c|
|00000e50| 88 60 16 13 0e 0e 63 88 | 0e 13 62 88 e2 e3 09 5c |.`....c.|..b....\|
|00000e60| 22 88 0e 19 62 2e 5c 6e | 87 22 20 5b 6b 63 65 6c |"...b.\n|." [kcel|
|00000e70| 6c 3a 69 64 73 74 61 6d | 70 20 63 65 6c 6c 20 30 |l:idstam|p cell 0|
|00000e80| 20 6b 76 69 65 77 3a 6c | 61 62 65 6c 2d 6d 69 6e | kview:l|abel-min|
|00000e90| 2d 77 69 64 74 68 20 6b | 76 69 65 77 20 6c 61 62 |-width k|view lab|
|00000ea0| 65 6c 2d 6d 69 6e 2d 77 | 69 64 74 68 20 66 6f 72 |el-min-w|idth for|
|00000eb0| 6d 61 74 20 22 25 25 25 | 64 73 22 20 6c 61 62 65 |mat "%%%|ds" labe|
|00000ec0| 6c 2d 66 6d 74 20 6b 6c | 61 62 65 6c 20 22 22 20 |l-fmt kl|abel "" |
|00000ed0| 6c 61 62 65 6c 20 22 20 | 22 20 6b 76 69 65 77 3a |label " |" kview:|
|00000ee0| 6c 61 62 65 6c 2d 73 65 | 70 61 72 61 74 6f 72 20 |label-se|parator |
|00000ef0| 6c 61 62 65 6c 2d 73 65 | 70 61 72 61 74 6f 72 20 |label-se|parator |
|00000f00| 6c 65 76 65 6c 20 6b 76 | 69 65 77 3a 6c 65 76 65 |level kv|iew:leve|
|00000f10| 6c 2d 69 6e 64 65 6e 74 | 20 6d 75 6c 74 2d 6c 69 |l-indent| mult-li|
|00000f20| 6e 65 2d 69 6e 64 65 6e | 74 20 74 68 72 75 2d 6c |ne-inden|t thru-l|
|00000f30| 61 62 65 6c 20 6f 6c 64 | 2d 70 6f 69 6e 74 20 6d |abel old|-point m|
|00000f40| 61 6b 65 2d 73 74 72 69 | 6e 67 20 33 32 20 66 69 |ake-stri|ng 32 fi|
|00000f50| 6c 6c 2d 70 72 65 66 69 | 78 20 6e 69 6c 20 63 6f |ll-prefi|x nil co|
|00000f60| 6e 74 65 6e 74 73 20 6e | 65 77 2d 70 6f 69 6e 74 |ntents n|ew-point|
|00000f70| 20 6e 6f 2d 66 69 6c 6c | 20 6b 63 65 6c 6c 3a 73 | no-fill| kcell:s|
|00000f80| 65 74 2d 61 74 74 72 20 | 74 20 6b 76 69 65 77 3a |et-attr |t kview:|
|00000f90| 69 6e 73 65 72 74 2d 63 | 6f 6e 74 65 6e 74 73 20 |insert-c|ontents |
|00000fa0| 22 5c 6e 5c 6e 22 20 22 | 5c 6e 22 20 6b 66 69 6c |"\n\n" "|\n" kfil|
|00000fb0| 65 3a 6e 61 72 72 6f 77 | 2d 74 6f 2d 6b 63 65 6c |e:narrow|-to-kcel|
|00000fc0| 6c 73 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 6b |ls delet|e-char k|
|00000fd0| 70 72 6f 70 65 72 74 79 | 3a 73 65 74 20 6b 63 65 |property|:set kce|
|00000fe0| 6c 6c 5d 20 36 20 22 5c | 0a 49 6e 73 65 72 74 20 |ll] 6 "\|.Insert |
|00000ff0| 69 6e 74 6f 20 4b 56 49 | 45 57 20 61 74 20 70 6f |into KVI|EW at po|
|00001000| 69 6e 74 2c 20 43 45 4c | 4c 20 61 74 20 4c 45 56 |int, CEL|L at LEV|
|00001010| 45 4c 20 28 31 20 3d 20 | 66 69 72 73 74 20 6c 65 |EL (1 = |first le|
|00001020| 76 65 6c 29 20 77 69 74 | 68 20 4b 4c 41 42 45 4c |vel) wit|h KLABEL|
|00001030| 2e 0a 4f 70 74 69 6f 6e | 61 6c 20 4e 4f 2d 46 49 |..Option|al NO-FI|
|00001040| 4c 4c 20 6e 6f 6e 2d 6e | 69 6c 20 73 75 70 70 72 |LL non-n|il suppr|
|00001050| 65 73 73 65 73 20 66 69 | 6c 6c 69 6e 67 20 6f 66 |esses fi|lling of|
|00001060| 20 63 65 6c 6c 27 73 20 | 63 6f 6e 74 65 6e 74 73 | cell's |contents|
|00001070| 20 75 70 6f 6e 20 69 6e | 73 65 72 74 69 6f 6e 2e | upon in|sertion.|
|00001080| 22 5d 29 0a 28 66 73 65 | 74 20 27 6b 63 65 6c 6c |"]).(fse|t 'kcell|
|00001090| 2d 76 69 65 77 3a 65 6e | 64 20 23 5b 28 26 6f 70 |-view:en|d #[(&op|
|000010a0| 74 69 6f 6e 61 6c 20 70 | 6f 73 29 20 22 08 ac 82 |tional p|os) "...|
|000010b0| 60 10 8a c1 c2 c3 c4 23 | ae 81 64 29 87 22 20 5b |`......#|..d)." [|
|000010c0| 70 6f 73 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |pos re-s|earch-fo|
|000010d0| 72 77 61 72 64 20 22 5b | 5c 6e 0d 5d 5b 5c 6e 0d |rward "[|\n.][\n.|
|000010e0| 5d 22 20 6e 69 6c 20 74 | 5d 20 34 20 22 5c 0a 52 |]" nil t|] 4 "\.R|
|000010f0| 65 74 75 72 6e 20 65 6e | 64 20 70 6f 73 69 74 69 |eturn en|d positi|
|00001100| 6f 6e 20 6f 66 20 63 65 | 6c 6c 20 66 72 6f 6d 20 |on of ce|ll from |
|00001110| 6f 70 74 69 6f 6e 61 6c | 20 50 4f 53 20 6f 72 20 |optional| POS or |
|00001120| 70 6f 69 6e 74 2e 0a 49 | 6e 63 6c 75 64 65 73 20 |point..I|ncludes |
|00001130| 62 6c 61 6e 6b 20 6c 69 | 6e 65 73 20 66 6f 6c 6c |blank li|nes foll|
|00001140| 6f 77 69 6e 67 20 63 65 | 6c 6c 20 63 6f 6e 74 65 |owing ce|ll conte|
|00001150| 6e 74 73 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6b |nts."]).|(fset 'k|
|00001160| 63 65 6c 6c 2d 76 69 65 | 77 3a 65 6e 64 2d 63 6f |cell-vie|w:end-co|
|00001170| 6e 74 65 6e 74 73 20 23 | 5b 28 26 6f 70 74 69 6f |ntents #|[(&optio|
|00001180| 6e 61 6c 20 70 6f 73 29 | 20 22 8a 08 ab 83 08 62 |nal pos)| ".....b|
|00001190| 88 c1 20 62 88 c2 c3 78 | 88 60 29 87 22 20 5b 70 |.. b...x|.`)." [p|
|000011a0| 6f 73 20 6b 63 65 6c 6c | 2d 76 69 65 77 3a 65 6e |os kcell|-view:en|
|000011b0| 64 20 22 5c 6e 0d 22 20 | 6e 69 6c 5d 20 32 20 22 |d "\n." |nil] 2 "|
|000011c0| 5c 0a 52 65 74 75 72 6e | 20 65 6e 64 20 70 6f 73 |\.Return| end pos|
|000011d0| 69 74 69 6f 6e 20 6f 66 | 20 63 65 6c 6c 20 63 6f |ition of| cell co|
|000011e0| 6e 74 65 6e 74 73 20 66 | 72 6f 6d 20 6f 70 74 69 |ntents f|rom opti|
|000011f0| 6f 6e 61 6c 20 50 4f 53 | 20 6f 72 20 70 6f 69 6e |onal POS| or poin|
|00001200| 74 2e 0a 45 78 63 6c 75 | 64 65 73 20 62 6c 61 6e |t..Exclu|des blan|
|00001210| 6b 20 6c 69 6e 65 73 20 | 66 6f 6c 6c 6f 77 69 6e |k lines |followin|
|00001220| 67 20 63 65 6c 6c 20 63 | 6f 6e 74 65 6e 74 73 2e |g cell c|ontents.|
|00001230| 22 5d 29 0a 28 66 73 65 | 74 20 27 6b 63 65 6c 6c |"]).(fse|t 'kcell|
|00001240| 2d 76 69 65 77 3a 65 78 | 70 61 6e 64 20 23 5b 28 |-view:ex|pand #[(|
|00001250| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 6f 73 20 6c 61 |&optiona|l pos la|
|00001260| 62 65 6c 2d 73 65 70 2d | 6c 65 6e 29 20 22 8a c0 |bel-sep-|len) "..|
|00001270| 09 5c 6e 5c 22 62 88 c3 | 60 c4 20 c5 c6 c7 25 29 |.\n\"b..|`. ...%)|
|00001280| 87 22 20 5b 6b 63 65 6c | 6c 2d 76 69 65 77 3a 73 |." [kcel|l-view:s|
|00001290| 74 61 72 74 20 70 6f 73 | 20 6c 61 62 65 6c 2d 73 |tart pos| label-s|
|000012a0| 65 70 2d 6c 65 6e 20 73 | 75 62 73 74 2d 63 68 61 |ep-len s|ubst-cha|
|000012b0| 72 2d 69 6e 2d 72 65 67 | 69 6f 6e 20 6b 63 65 6c |r-in-reg|ion kcel|
|000012c0| 6c 2d 76 69 65 77 3a 65 | 6e 64 2d 63 6f 6e 74 65 |l-view:e|nd-conte|
|000012d0| 6e 74 73 20 31 33 20 31 | 30 20 74 5d 20 36 20 22 |nts 13 1|0 t] 6 "|
|000012e0| 5c 0a 45 78 70 61 6e 64 | 20 63 65 6c 6c 20 61 74 |\.Expand| cell at|
|000012f0| 20 6f 70 74 69 6f 6e 61 | 6c 20 50 4f 53 20 6f 72 | optiona|l POS or|
|00001300| 20 70 6f 69 6e 74 20 77 | 69 74 68 69 6e 20 74 68 | point w|ithin th|
|00001310| 65 20 63 75 72 72 65 6e | 74 20 76 69 65 77 2e 22 |e curren|t view."|
|00001320| 5d 29 0a 28 66 73 65 74 | 20 27 6b 63 65 6c 6c 2d |]).(fset| 'kcell-|
|00001330| 76 69 65 77 3a 66 6f 72 | 77 61 72 64 20 23 5b 28 |view:for|ward #[(|
|00001340| 26 6f 70 74 69 6f 6e 61 | 6c 20 76 69 73 69 62 6c |&optiona|l visibl|
|00001350| 65 2d 70 20 6c 61 62 65 | 6c 2d 73 65 70 2d 6c 65 |e-p labe|l-sep-le|
|00001360| 6e 29 20 22 08 ac 84 c1 | 5c 6e 21 10 60 c3 89 c4 |n) "....|\n!.`...|
|00001370| c5 c3 08 5c 22 1e 06 1e | 07 1e 08 1e 09 1e 5c 6e |...\"...|......\n|
|00001380| 0e 09 ac b3 0e 08 ac af | cb 0e 0c 08 5c 22 ab a8 |........|....\"..|
|00001390| c5 c3 08 5c 22 89 16 07 | 0e 06 55 ab 8c cd c3 08 |...\"...|..U.....|
|000013a0| 5c 22 62 88 ce 89 16 09 | aa 5b 0e 07 0e 06 57 ab |\"b.....|.[....W.|
|000013b0| 52 ce 16 08 0e 5c 6e 62 | 88 aa 49 0e 09 ac 84 0e |R....\nb|..I.....|
|000013c0| 5c 6e 62 88 0e 09 2d 87 | 22 20 5b 6c 61 62 65 6c |\nb...-.|" [label|
|000013d0| 2d 73 65 70 2d 6c 65 6e | 20 6b 76 69 65 77 3a 6c |-sep-len| kview:l|
|000013e0| 61 62 65 6c 2d 73 65 70 | 61 72 61 74 6f 72 2d 6c |abel-sep|arator-l|
|000013f0| 65 6e 67 74 68 20 6b 76 | 69 65 77 20 6e 69 6c 20 |ength kv|iew nil |
|00001400| 30 20 6b 63 65 6c 6c 2d | 76 69 65 77 3a 69 6e 64 |0 kcell-|view:ind|
|00001410| 65 6e 74 20 73 74 61 72 | 74 2d 69 6e 64 65 6e 74 |ent star|t-indent|
|00001420| 20 63 75 72 72 2d 69 6e | 64 65 6e 74 20 64 6f 6e | curr-in|dent don|
|00001430| 65 20 66 6f 75 6e 64 20 | 6f 70 6f 69 6e 74 20 6b |e found |opoint k|
|00001440| 63 65 6c 6c 2d 76 69 65 | 77 3a 6e 65 78 74 20 76 |cell-vie|w:next v|
|00001450| 69 73 69 62 6c 65 2d 70 | 20 6b 63 65 6c 6c 2d 76 |isible-p| kcell-v|
|00001460| 69 65 77 3a 73 74 61 72 | 74 20 74 5d 20 38 20 22 |iew:star|t t] 8 "|
|00001470| 5c 0a 4d 6f 76 65 20 74 | 6f 20 73 74 61 72 74 20 |\.Move t|o start |
|00001480| 6f 66 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |of the f|ollowing|
|00001490| 20 63 65 6c 6c 20 61 74 | 20 74 68 65 20 73 61 6d | cell at| the sam|
|000014a0| 65 20 6c 65 76 65 6c 20 | 61 73 20 74 68 65 20 63 |e level |as the c|
|000014b0| 75 72 72 65 6e 74 20 63 | 65 6c 6c 2e 0a 57 69 74 |urrent c|ell..Wit|
|000014c0| 68 20 6f 70 74 69 6f 6e | 61 6c 20 56 49 53 49 42 |h option|al VISIB|
|000014d0| 4c 45 2d 50 2c 20 63 6f | 6e 73 69 64 65 72 20 6f |LE-P, co|nsider o|
|000014e0| 6e 6c 79 20 76 69 73 69 | 62 6c 65 20 63 65 6c 6c |nly visi|ble cell|
|000014f0| 73 2e 0a 52 65 74 75 72 | 6e 20 74 20 75 6e 6c 65 |s..Retur|n t unle|
|00001500| 73 73 20 6e 6f 20 73 75 | 63 68 20 63 65 6c 6c 2e |ss no su|ch cell.|
|00001510| 22 5d 29 0a 28 66 73 65 | 74 20 27 6b 63 65 6c 6c |"]).(fse|t 'kcell|
|00001520| 2d 76 69 65 77 3a 67 65 | 74 2d 61 74 74 72 20 23 |-view:ge|t-attr #|
|00001530| 5b 28 61 74 74 72 69 62 | 75 74 65 20 26 6f 70 74 |[(attrib|ute &opt|
|00001540| 69 6f 6e 61 6c 20 70 6f | 73 29 20 22 8a 08 ab 83 |ional po|s) "....|
|00001550| 08 62 88 c1 c2 20 0b 5c | 22 1c 74 ab 88 c5 c6 0b |.b... .\|".t.....|
|00001560| 0c c7 20 24 88 0c 2a 87 | 22 20 5b 70 6f 73 20 6b |.. $..*.|" [pos k|
|00001570| 63 65 6c 6c 3a 67 65 74 | 2d 61 74 74 72 20 6b 63 |cell:get|-attr kc|
|00001580| 65 6c 6c 2d 76 69 65 77 | 3a 63 65 6c 6c 20 61 74 |ell-view|:cell at|
|00001590| 74 72 69 62 75 74 65 20 | 76 61 6c 75 65 20 6d 65 |tribute |value me|
|000015a0| 73 73 61 67 65 20 22 41 | 74 74 72 69 62 75 74 65 |ssage "A|ttribute|
|000015b0| 20 25 73 20 3d 20 25 73 | 2c 20 69 6e 20 63 65 6c | %s = %s|, in cel|
|000015c0| 6c 20 3c 25 73 3e 2e 22 | 20 6b 63 65 6c 6c 2d 76 |l <%s>."| kcell-v|
|000015d0| 69 65 77 3a 6c 61 62 65 | 6c 5d 20 35 20 22 5c 0a |iew:labe|l] 5 "\.|
|000015e0| 47 65 74 20 41 54 54 52 | 49 42 55 54 45 27 73 20 |Get ATTR|IBUTE's |
|000015f0| 76 61 6c 75 65 20 66 6f | 72 20 63 75 72 72 65 6e |value fo|r curren|
|00001600| 74 20 63 65 6c 6c 20 6f | 72 20 63 65 6c 6c 20 61 |t cell o|r cell a|
|00001610| 74 20 6f 70 74 69 6f 6e | 61 6c 20 50 4f 53 2e 22 |t option|al POS."|
|00001620| 20 22 53 41 74 74 72 69 | 62 75 74 65 20 74 6f 20 | "SAttri|bute to |
|00001630| 67 65 74 3a 20 22 5d 29 | 0a 28 66 73 65 74 20 27 |get: "])|.(fset '|
|00001640| 6b 63 65 6c 6c 2d 76 69 | 65 77 3a 69 64 73 74 61 |kcell-vi|ew:idsta|
|00001650| 6d 70 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |mp #[(&o|ptional |
|00001660| 70 6f 73 29 20 22 8a 08 | ab 83 08 62 88 c1 c2 c3 |pos) "..|...b....|
|00001670| c4 20 21 5c 22 29 87 22 | 20 5b 70 6f 73 20 66 6f |. !\")."| [pos fo|
|00001680| 72 6d 61 74 20 22 30 25 | 64 22 20 6b 63 65 6c 6c |rmat "0%|d" kcell|
|00001690| 3a 69 64 73 74 61 6d 70 | 20 6b 63 65 6c 6c 2d 76 |:idstamp| kcell-v|
|000016a0| 69 65 77 3a 63 65 6c 6c | 5d 20 34 20 22 5c 0a 52 |iew:cell|] 4 "\.R|
|000016b0| 65 74 75 72 6e 20 69 64 | 73 74 61 6d 70 20 73 74 |eturn id|stamp st|
|000016c0| 72 69 6e 67 20 6f 66 20 | 63 65 6c 6c 20 61 74 20 |ring of |cell at |
|000016d0| 6f 70 74 69 6f 6e 61 6c | 20 50 4f 53 20 6f 72 20 |optional| POS or |
|000016e0| 70 6f 69 6e 74 2e 22 5d | 29 0a 28 66 73 65 74 20 |point."]|).(fset |
|000016f0| 27 6b 63 65 6c 6c 2d 76 | 69 65 77 3a 69 6e 64 65 |'kcell-v|iew:inde|
|00001700| 6e 74 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |nt #[(&o|ptional |
|00001710| 70 6f 73 20 6c 61 62 65 | 6c 2d 73 65 70 2d 6c 65 |pos labe|l-sep-le|
|00001720| 6e 29 20 22 8a c0 09 21 | 88 69 29 5c 6e ae 83 c3 |n) "...!|.i)\n...|
|00001730| 0c 21 5c 5c ae 87 c5 c6 | 09 ae 81 c7 5c 22 87 22 |.!\\....|....\"."|
|00001740| 20 5b 6b 63 65 6c 6c 2d | 76 69 65 77 3a 74 6f 2d | [kcell-|view:to-|
|00001750| 6c 61 62 65 6c 2d 65 6e | 64 20 70 6f 73 20 6c 61 |label-en|d pos la|
|00001760| 62 65 6c 2d 73 65 70 2d | 6c 65 6e 20 6b 76 69 65 |bel-sep-|len kvie|
|00001770| 77 3a 6c 61 62 65 6c 2d | 73 65 70 61 72 61 74 6f |w:label-|separato|
|00001780| 72 2d 6c 65 6e 67 74 68 | 20 6b 76 69 65 77 20 65 |r-length| kview e|
|00001790| 72 72 6f 72 20 22 28 6b | 63 65 6c 6c 2d 76 69 65 |rror "(k|cell-vie|
|000017a0| 77 3a 69 6e 64 65 6e 74 | 29 3a 20 4e 6f 20 69 6e |w:indent|): No in|
|000017b0| 74 65 72 6e 61 6c 20 63 | 65 6c 6c 20 70 72 6f 70 |ternal c|ell prop|
|000017c0| 65 72 74 69 65 73 20 61 | 74 20 25 73 22 20 22 70 |erties a|t %s" "p|
|000017d0| 6f 69 6e 74 22 5d 20 33 | 20 22 5c 0a 52 65 74 75 |oint"] 3| "\.Retu|
|000017e0| 72 6e 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 6f |rn inden|tation o|
|000017f0| 66 20 63 65 6c 6c 20 61 | 74 20 6f 70 74 69 6f 6e |f cell a|t option|
|00001800| 61 6c 20 50 4f 53 20 6f | 72 20 70 6f 69 6e 74 2e |al POS o|r point.|
|00001810| 0a 4f 70 74 69 6f 6e 61 | 6c 20 4c 41 42 45 4c 2d |.Optiona|l LABEL-|
|00001820| 53 45 50 2d 4c 45 4e 20 | 69 73 20 74 68 65 20 76 |SEP-LEN |is the v|
|00001830| 69 65 77 2d 73 70 65 63 | 69 66 69 63 20 6c 65 6e |iew-spec|ific len|
|00001840| 67 74 68 20 6f 66 20 74 | 68 65 20 73 65 70 61 72 |gth of t|he separ|
|00001850| 61 74 6f 72 20 62 65 74 | 77 65 65 6e 20 61 0a 63 |ator bet|ween a.c|
|00001860| 65 6c 6c 27 73 20 6c 61 | 62 65 6c 20 61 6e 64 20 |ell's la|bel and |
|00001870| 74 68 65 20 73 74 61 72 | 74 20 6f 66 20 69 74 73 |the star|t of its|
|00001880| 20 63 6f 6e 74 65 6e 74 | 73 2e 22 5d 29 0a 28 66 | content|s."]).(f|
|00001890| 73 65 74 20 27 6b 63 65 | 6c 6c 2d 76 69 65 77 3a |set 'kce|ll-view:|
|000018a0| 6c 61 62 65 6c 20 23 5b | 28 26 6f 70 74 69 6f 6e |label #[|(&option|
|000018b0| 61 6c 20 70 6f 73 29 20 | 22 8a 08 ab 83 08 62 88 |al pos) |".....b.|
|000018c0| c1 5c 6e 21 89 1b c4 3d | ab 84 c5 20 aa 8a c6 20 |.\n!...=|... ... |
|000018d0| 88 60 c7 c8 78 88 60 7b | 2a 87 22 20 5b 70 6f 73 |.`..x.`{|*." [pos|
|000018e0| 20 6b 76 69 65 77 3a 6c | 61 62 65 6c 2d 74 79 70 | kview:l|abel-typ|
|000018f0| 65 20 6b 76 69 65 77 20 | 6c 61 62 65 6c 2d 74 79 |e kview |label-ty|
|00001900| 70 65 20 6e 6f 20 6b 63 | 65 6c 6c 2d 76 69 65 77 |pe no kc|ell-view|
|00001910| 3a 69 64 73 74 61 6d 70 | 20 6b 63 65 6c 6c 2d 76 |:idstamp| kcell-v|
|00001920| 69 65 77 3a 74 6f 2d 6c | 61 62 65 6c 2d 65 6e 64 |iew:to-l|abel-end|
|00001930| 20 22 5e 20 09 5c 6e 0d | 22 20 6e 69 6c 5d 20 34 | "^ .\n.|" nil] 4|
|00001940| 20 22 5c 0a 52 65 74 75 | 72 6e 20 64 69 73 70 6c | "\.Retu|rn displ|
|00001950| 61 79 65 64 20 6c 61 62 | 65 6c 20 73 74 72 69 6e |ayed lab|el strin|
|00001960| 67 20 6f 66 20 63 65 6c | 6c 20 61 74 20 6f 70 74 |g of cel|l at opt|
|00001970| 69 6f 6e 61 6c 20 50 4f | 53 20 6f 72 20 70 6f 69 |ional PO|S or poi|
|00001980| 6e 74 2e 0a 49 66 20 6c | 61 62 65 6c 73 20 61 72 |nt..If l|abels ar|
|00001990| 65 20 6f 66 66 2c 20 72 | 65 74 75 72 6e 20 63 65 |e off, r|eturn ce|
|000019a0| 6c 6c 27 73 20 69 64 73 | 74 61 6d 70 20 61 73 20 |ll's ids|tamp as |
|000019b0| 61 20 73 74 72 69 6e 67 | 2e 22 5d 29 0a 28 66 73 |a string|."]).(fs|
|000019c0| 65 74 20 27 6b 63 65 6c | 6c 2d 76 69 65 77 3a 6c |et 'kcel|l-view:l|
|000019d0| 65 76 65 6c 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |evel #[(|&optiona|
|000019e0| 6c 20 70 6f 73 20 6c 61 | 62 65 6c 2d 73 65 70 2d |l pos la|bel-sep-|
|000019f0| 6c 65 6e 20 69 6e 64 65 | 6e 74 29 20 22 08 ac 84 |len inde|nt) "...|
|00001a00| c1 5c 6e 21 10 8a 0b ab | 83 0b 62 88 0c ae 84 c5 |.\n!....|..b.....|
|00001a10| c6 08 5c 22 08 5a c7 5c | 6e 21 a5 29 87 22 20 5b |..\".Z.\|n!.)." [|
|00001a20| 6c 61 62 65 6c 2d 73 65 | 70 2d 6c 65 6e 20 6b 76 |label-se|p-len kv|
|00001a30| 69 65 77 3a 6c 61 62 65 | 6c 2d 73 65 70 61 72 61 |iew:labe|l-separa|
|00001a40| 74 6f 72 2d 6c 65 6e 67 | 74 68 20 6b 76 69 65 77 |tor-leng|th kview|
|00001a50| 20 70 6f 73 20 69 6e 64 | 65 6e 74 20 6b 63 65 6c | pos ind|ent kcel|
|00001a60| 6c 2d 76 69 65 77 3a 69 | 6e 64 65 6e 74 20 6e 69 |l-view:i|ndent ni|
|00001a70| 6c 20 6b 76 69 65 77 3a | 6c 65 76 65 6c 2d 69 6e |l kview:|level-in|
|00001a80| 64 65 6e 74 5d 20 33 20 | 22 5c 0a 52 65 74 75 72 |dent] 3 |"\.Retur|
|00001a90| 6e 20 63 65 6c 6c 20 6c | 65 76 65 6c 20 72 65 6c |n cell l|evel rel|
|00001aa0| 61 74 69 76 65 20 74 6f | 20 74 6f 70 20 63 65 6c |ative to| top cel|
|00001ab0| 6c 20 6f 66 20 74 68 65 | 20 6f 75 74 6c 69 6e 65 |l of the| outline|
|00001ac0| 20 66 6f 72 20 63 75 72 | 72 65 6e 74 20 63 65 6c | for cur|rent cel|
|00001ad0| 6c 20 6f 72 20 6f 6e 65 | 20 61 74 20 6f 70 74 69 |l or one| at opti|
|00001ae0| 6f 6e 61 6c 20 50 4f 53 | 2e 0a 30 20 3d 20 74 6f |onal POS|..0 = to|
|00001af0| 70 20 63 65 6c 6c 20 6c | 65 76 65 6c 2c 20 31 20 |p cell l|evel, 1 |
|00001b00| 3d 20 31 73 74 20 6c 65 | 76 65 6c 20 69 6e 20 6f |= 1st le|vel in o|
|00001b10| 75 74 6c 69 6e 65 2e 0a | 4f 70 74 69 6f 6e 61 6c |utline..|Optional|
|00001b20| 20 4c 41 42 45 4c 2d 53 | 45 50 2d 4c 45 4e 20 69 | LABEL-S|EP-LEN i|
|00001b30| 73 20 6c 65 6e 67 74 68 | 20 6f 66 20 73 70 61 63 |s length| of spac|
|00001b40| 65 73 20 62 65 74 77 65 | 65 6e 20 61 20 63 65 6c |es betwe|en a cel|
|00001b50| 6c 20 6c 61 62 65 6c 20 | 61 6e 64 20 69 74 73 20 |l label |and its |
|00001b60| 74 68 65 0a 73 74 61 72 | 74 20 6f 66 20 69 74 73 |the.star|t of its|
|00001b70| 20 62 6f 64 79 20 69 6e | 20 74 68 65 20 63 75 72 | body in| the cur|
|00001b80| 72 65 6e 74 20 76 69 65 | 77 2e 20 20 4f 70 74 69 |rent vie|w. Opti|
|00001b90| 6f 6e 61 6c 20 49 4e 44 | 45 4e 54 20 69 73 20 74 |onal IND|ENT is t|
|00001ba0| 68 65 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 69 |he inden|tation i|
|00001bb0| 6e 0a 63 68 61 72 61 63 | 74 65 72 73 20 6f 66 20 |n.charac|ters of |
|00001bc0| 74 68 65 20 63 65 6c 6c | 20 77 68 6f 73 65 20 6c |the cell| whose l|
|00001bd0| 65 76 65 6c 20 69 73 20 | 64 65 73 69 72 65 64 2e |evel is |desired.|
|00001be0| 22 5d 29 0a 28 66 73 65 | 74 20 27 6b 63 65 6c 6c |"]).(fse|t 'kcell|
|00001bf0| 2d 76 69 65 77 3a 6c 69 | 6e 65 20 23 5b 28 26 6f |-view:li|ne #[(&o|
|00001c00| 70 74 69 6f 6e 61 6c 20 | 70 6f 73 29 20 22 8a 08 |ptional |pos) "..|
|00001c10| ab 83 08 62 88 c1 20 ab | 87 c2 20 c3 20 7b aa 84 |...b.. .|.. . {..|
|00001c20| c4 c5 60 5c 22 29 87 22 | 20 5b 70 6f 73 20 6b 76 |..`\")."| [pos kv|
|00001c30| 69 65 77 3a 76 61 6c 69 | 64 2d 70 6f 73 69 74 69 |iew:vali|d-positi|
|00001c40| 6f 6e 2d 70 20 6b 6f 74 | 6c 2d 6d 6f 64 65 3a 62 |on-p kot|l-mode:b|
|00001c50| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 6c 69 6e 65 |eginning|-of-line|
|00001c60| 20 6b 6f 74 6c 2d 6d 6f | 64 65 3a 65 6e 64 2d 6f | kotl-mo|de:end-o|
|00001c70| 66 2d 6c 69 6e 65 20 65 | 72 72 6f 72 20 22 28 6b |f-line e|rror "(k|
|00001c80| 63 65 6c 6c 2d 76 69 65 | 77 3a 6c 69 6e 65 29 3a |cell-vie|w:line):|
|00001c90| 20 49 6e 76 61 6c 69 64 | 20 70 6f 73 69 74 69 6f | Invalid| positio|
|00001ca0| 6e 2c 20 27 25 64 27 22 | 5d 20 33 20 22 5c 0a 52 |n, '%d'"|] 3 "\.R|
|00001cb0| 65 74 75 72 6e 20 63 6f | 6e 74 65 6e 74 73 20 6f |eturn co|ntents o|
|00001cc0| 66 20 63 65 6c 6c 20 6c | 69 6e 65 20 61 74 20 70 |f cell l|ine at p|
|00001cd0| 6f 69 6e 74 20 6f 72 20 | 6f 70 74 69 6f 6e 61 6c |oint or |optional|
|00001ce0| 20 50 4f 53 20 61 73 20 | 61 20 73 74 72 69 6e 67 | POS as |a string|
|00001cf0| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 6b 63 65 6c |."]).(fs|et 'kcel|
|00001d00| 6c 2d 76 69 65 77 3a 6e | 65 78 74 20 23 5b 28 26 |l-view:n|ext #[(&|
|00001d10| 6f 70 74 69 6f 6e 61 6c | 20 76 69 73 69 62 6c 65 |optional| visible|
|00001d20| 2d 70 20 6c 61 62 65 6c | 2d 73 65 70 2d 6c 65 6e |-p label|-sep-len|
|00001d30| 29 20 22 60 c0 19 1a 0b | ab 87 c4 20 62 88 c0 7f |) "`....|... b...|
|00001d40| 88 c5 60 c6 5c 22 89 11 | ab 88 09 62 ab 8a c7 20 |..`.\"..|...b... |
|00001d50| ab 86 5c 6e 62 88 c0 aa | 8b c8 c0 0e 09 5c 22 62 |..\nb...|.....\"b|
|00001d60| 88 5c 6e 60 3d 3f 2a 87 | 22 20 5b 6e 69 6c 20 70 |.\n`=?*.|" [nil p|
|00001d70| 6f 73 20 6f 70 6f 69 6e | 74 20 76 69 73 69 62 6c |os opoin|t visibl|
|00001d80| 65 2d 70 20 6b 63 65 6c | 6c 2d 76 69 65 77 3a 65 |e-p kcel|l-view:e|
|00001d90| 6e 64 2d 63 6f 6e 74 65 | 6e 74 73 20 6b 70 72 6f |nd-conte|nts kpro|
|00001da0| 70 65 72 74 79 3a 6e 65 | 78 74 2d 73 69 6e 67 6c |perty:ne|xt-singl|
|00001db0| 65 2d 63 68 61 6e 67 65 | 20 6b 63 65 6c 6c 20 6b |e-change| kcell k|
|00001dc0| 6f 74 6c 2d 6d 6f 64 65 | 3a 65 6f 62 70 20 6b 63 |otl-mode|:eobp kc|
|00001dd0| 65 6c 6c 2d 76 69 65 77 | 3a 73 74 61 72 74 20 6c |ell-view|:start l|
|00001de0| 61 62 65 6c 2d 73 65 70 | 2d 6c 65 6e 5d 20 34 20 |abel-sep|-len] 4 |
|00001df0| 22 5c 0a 4d 6f 76 65 20 | 74 6f 20 73 74 61 72 74 |"\.Move |to start|
|00001e00| 20 6f 66 20 6e 65 78 74 | 20 63 65 6c 6c 20 77 69 | of next| cell wi|
|00001e10| 74 68 69 6e 20 63 75 72 | 72 65 6e 74 20 76 69 65 |thin cur|rent vie|
|00001e20| 77 2e 0a 57 69 74 68 20 | 6f 70 74 69 6f 6e 61 6c |w..With |optional|
|00001e30| 20 56 49 53 49 42 4c 45 | 2d 50 2c 20 63 6f 6e 73 | VISIBLE|-P, cons|
|00001e40| 69 64 65 72 20 6f 6e 6c | 79 20 76 69 73 69 62 6c |ider onl|y visibl|
|00001e50| 65 20 63 65 6c 6c 73 2e | 0a 52 65 74 75 72 6e 20 |e cells.|.Return |
|00001e60| 74 20 75 6e 6c 65 73 73 | 20 6e 6f 20 6e 65 78 74 |t unless| no next|
|00001e70| 20 63 65 6c 6c 2e 22 5d | 29 0a 28 66 73 65 74 20 | cell."]|).(fset |
|00001e80| 27 6b 63 65 6c 6c 2d 76 | 69 65 77 3a 6f 70 65 72 |'kcell-v|iew:oper|
|00001e90| 61 74 65 20 23 5b 28 66 | 75 6e 63 74 69 6f 6e 20 |ate #[(f|unction |
|00001ea0| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 74 61 72 74 20 |&optiona|l start |
|00001eb0| 65 6e 64 29 20 22 8c 08 | ae 82 c1 20 5c 6e ae 82 |end) "..|... \n..|
|00001ec0| c3 20 7d 88 0c 20 29 87 | 22 20 5b 73 74 61 72 74 |. }.. ).|" [start|
|00001ed0| 20 6b 63 65 6c 6c 2d 76 | 69 65 77 3a 73 74 61 72 | kcell-v|iew:star|
|00001ee0| 74 20 65 6e 64 20 6b 63 | 65 6c 6c 2d 76 69 65 77 |t end kc|ell-view|
|00001ef0| 3a 65 6e 64 2d 63 6f 6e | 74 65 6e 74 73 20 66 75 |:end-con|tents fu|
|00001f00| 6e 63 74 69 6f 6e 5d 20 | 32 20 22 5c 0a 49 6e 76 |nction] |2 "\.Inv|
|00001f10| 6f 6b 65 20 46 55 4e 43 | 54 49 4f 4e 20 77 69 74 |oke FUNC|TION wit|
|00001f20| 68 20 76 69 65 77 20 72 | 65 73 74 72 69 63 74 65 |h view r|estricte|
|00001f30| 64 20 74 6f 20 63 75 72 | 72 65 6e 74 20 63 65 6c |d to cur|rent cel|
|00001f40| 6c 20 63 6f 6e 74 65 6e | 74 73 2e 0a 4f 70 74 69 |l conten|ts..Opti|
|00001f50| 6f 6e 61 6c 20 53 54 41 | 52 54 20 61 6e 64 20 45 |onal STA|RT and E|
|00001f60| 4e 44 20 61 72 65 20 73 | 74 61 72 74 20 61 6e 64 |ND are s|tart and|
|00001f70| 20 65 6e 64 70 6f 69 6e | 74 73 20 6f 66 20 63 65 | endpoin|ts of ce|
|00001f80| 6c 6c 20 74 6f 20 75 73 | 65 2e 22 5d 29 0a 28 66 |ll to us|e."]).(f|
|00001f90| 73 65 74 20 27 6b 63 65 | 6c 6c 2d 76 69 65 77 3a |set 'kce|ll-view:|
|00001fa0| 70 61 72 65 6e 74 20 23 | 5b 28 26 6f 70 74 69 6f |parent #|[(&optio|
|00001fb0| 6e 61 6c 20 76 69 73 69 | 62 6c 65 2d 70 20 6c 61 |nal visi|ble-p la|
|00001fc0| 62 65 6c 2d 73 65 70 2d | 6c 65 6e 29 20 22 08 ac |bel-sep-|len) "..|
|00001fd0| 84 c1 5c 6e 21 10 60 c3 | c4 08 5c 22 53 1d 1e 06 |..\n!.`.|..\"S...|
|00001fe0| 0d c7 55 ab 8c 65 62 88 | c8 c4 08 5c 22 62 88 c7 |..U..eb.|...\"b..|
|00001ff0| aa 96 c9 0e 5c 6e 08 5c | 22 ac 79 cb 0e 5c 6e 08 |....\n.\|".y..\n.|
|00002000| 5c 22 ab 83 cc aa 85 0e | 06 62 88 c4 2a 87 22 20 |\"......|.b..*." |
|00002010| 5b 6c 61 62 65 6c 2d 73 | 65 70 2d 6c 65 6e 20 6b |[label-s|ep-len k|
|00002020| 76 69 65 77 3a 6c 61 62 | 65 6c 2d 73 65 70 61 72 |view:lab|el-separ|
|00002030| 61 74 6f 72 2d 6c 65 6e | 67 74 68 20 6b 76 69 65 |ator-len|gth kvie|
|00002040| 77 20 6b 63 65 6c 6c 2d | 76 69 65 77 3a 6c 65 76 |w kcell-|view:lev|
|00002050| 65 6c 20 6e 69 6c 20 70 | 61 72 65 6e 74 2d 6c 65 |el nil p|arent-le|
|00002060| 76 65 6c 20 6f 70 6f 69 | 6e 74 20 30 20 6b 63 65 |vel opoi|nt 0 kce|
|00002070| 6c 6c 2d 76 69 65 77 3a | 73 74 61 72 74 20 6b 63 |ll-view:|start kc|
|00002080| 65 6c 6c 2d 76 69 65 77 | 3a 62 61 63 6b 77 61 72 |ell-view|:backwar|
|00002090| 64 20 76 69 73 69 62 6c | 65 2d 70 20 6b 63 65 6c |d visibl|e-p kcel|
|000020a0| 6c 2d 76 69 65 77 3a 70 | 72 65 76 69 6f 75 73 20 |l-view:p|revious |
|000020b0| 74 5d 20 34 20 22 5c 0a | 4d 6f 76 65 20 74 6f 20 |t] 4 "\.|Move to |
|000020c0| 73 74 61 72 74 20 6f 66 | 20 63 75 72 72 65 6e 74 |start of| current|
|000020d0| 20 63 65 6c 6c 27 73 20 | 70 61 72 65 6e 74 20 77 | cell's |parent w|
|000020e0| 69 74 68 69 6e 20 63 75 | 72 72 65 6e 74 20 76 69 |ithin cu|rrent vi|
|000020f0| 65 77 2e 0a 49 66 20 70 | 61 72 65 6e 74 20 69 73 |ew..If p|arent is|
|00002100| 20 74 6f 70 20 63 65 6c | 6c 2c 20 6d 6f 76 65 20 | top cel|l, move |
|00002110| 74 6f 20 66 69 72 73 74 | 20 63 65 6c 6c 20 77 69 |to first| cell wi|
|00002120| 74 68 69 6e 20 76 69 65 | 77 20 61 6e 64 20 72 65 |thin vie|w and re|
|00002130| 74 75 72 6e 20 30 2e 0a | 4f 74 68 65 72 77 69 73 |turn 0..|Otherwis|
|00002140| 65 2c 20 72 65 74 75 72 | 6e 20 74 20 75 6e 6c 65 |e, retur|n t unle|
|00002150| 73 73 20 6f 70 74 69 6f | 6e 61 6c 20 56 49 53 49 |ss optio|nal VISI|
|00002160| 42 4c 45 2d 50 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |BLE-P is| non-nil|
|00002170| 20 61 6e 64 20 74 68 65 | 20 70 61 72 65 6e 74 20 | and the| parent |
|00002180| 63 65 6c 6c 0a 69 73 20 | 6e 6f 74 20 70 61 72 74 |cell.is |not part|
|00002190| 20 6f 66 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | of the |current |
|000021a0| 76 69 65 77 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |view."])|.(fset '|
|000021b0| 6b 63 65 6c 6c 2d 76 69 | 65 77 3a 70 72 65 76 69 |kcell-vi|ew:previ|
|000021c0| 6f 75 73 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ous #[(&|optional|
|000021d0| 20 76 69 73 69 62 6c 65 | 2d 70 20 6c 61 62 65 6c | visible|-p label|
|000021e0| 2d 73 65 70 2d 6c 65 6e | 29 20 22 60 60 18 19 c2 |-sep-len|) "``...|
|000021f0| c3 0c 5c 22 62 88 0d ab | 85 c6 79 88 aa 8b c7 60 |..\"b...|..y....`|
|00002200| c8 5c 22 89 10 ab 83 08 | 62 88 08 ab 9f c9 20 ac |.\".....|b..... .|
|00002210| 9b c7 60 c8 5c 22 89 10 | ab 93 08 62 88 ca c3 78 |..`.\"..|...b...x|
|00002220| 88 c2 c3 0c 5c 22 62 88 | 09 60 3d 3f aa 84 09 62 |....\"b.|.`=?...b|
|00002230| 88 c3 2a 87 22 20 5b 70 | 6f 73 20 6f 70 6f 69 6e |..*." [p|os opoin|
|00002240| 74 20 6b 63 65 6c 6c 2d | 76 69 65 77 3a 73 74 61 |t kcell-|view:sta|
|00002250| 72 74 20 6e 69 6c 20 6c | 61 62 65 6c 2d 73 65 70 |rt nil l|abel-sep|
|00002260| 2d 6c 65 6e 20 76 69 73 | 69 62 6c 65 2d 70 20 30 |-len vis|ible-p 0|
|00002270| 20 6b 70 72 6f 70 65 72 | 74 79 3a 70 72 65 76 69 | kproper|ty:previ|
|00002280| 6f 75 73 2d 73 69 6e 67 | 6c 65 2d 63 68 61 6e 67 |ous-sing|le-chang|
|00002290| 65 20 6b 63 65 6c 6c 20 | 6b 6f 74 6c 2d 6d 6f 64 |e kcell |kotl-mod|
|000022a0| 65 3a 62 6f 62 70 20 22 | 5c 6e 0d 22 5d 20 33 20 |e:bobp "|\n."] 3 |
|000022b0| 22 5c 0a 4d 6f 76 65 20 | 74 6f 20 73 74 61 72 74 |"\.Move |to start|
|000022c0| 20 6f 66 20 70 72 65 76 | 69 6f 75 73 20 63 65 6c | of prev|ious cel|
|000022d0| 6c 20 77 69 74 68 69 6e | 20 63 75 72 72 65 6e 74 |l within| current|
|000022e0| 20 76 69 65 77 2e 0a 57 | 69 74 68 20 6f 70 74 69 | view..W|ith opti|
|000022f0| 6f 6e 61 6c 20 56 49 53 | 49 42 4c 45 2d 50 2c 20 |onal VIS|IBLE-P, |
|00002300| 63 6f 6e 73 69 64 65 72 | 20 6f 6e 6c 79 20 76 69 |consider| only vi|
|00002310| 73 69 62 6c 65 20 63 65 | 6c 6c 73 2e 0a 52 65 74 |sible ce|lls..Ret|
|00002320| 75 72 6e 20 74 20 75 6e | 6c 65 73 73 20 6e 6f 20 |urn t un|less no |
|00002330| 70 72 65 76 69 6f 75 73 | 20 63 65 6c 6c 2e 22 5d |previous| cell."]|
|00002340| 29 0a 28 66 73 65 74 20 | 27 6b 63 65 6c 6c 2d 76 |).(fset |'kcell-v|
|00002350| 69 65 77 3a 70 6c 69 73 | 74 20 23 5b 28 26 6f 70 |iew:plis|t #[(&op|
|00002360| 74 69 6f 6e 61 6c 20 70 | 6f 73 29 20 22 c0 c1 5c |tional p|os) "..\|
|00002370| 6e 21 21 87 22 20 5b 6b | 63 65 6c 6c 3a 70 6c 69 |n!!." [k|cell:pli|
|00002380| 73 74 20 6b 63 65 6c 6c | 2d 76 69 65 77 3a 63 65 |st kcell|-view:ce|
|00002390| 6c 6c 20 70 6f 73 5d 20 | 33 20 22 5c 0a 52 65 74 |ll pos] |3 "\.Ret|
|000023a0| 75 72 6e 20 70 72 6f 70 | 65 72 74 69 65 73 20 61 |urn prop|erties a|
|000023b0| 73 73 6f 63 69 61 74 65 | 64 20 77 69 74 68 20 63 |ssociate|d with c|
|000023c0| 65 6c 6c 20 61 74 20 6f | 70 74 69 6f 6e 61 6c 20 |ell at o|ptional |
|000023d0| 50 4f 53 20 6f 72 20 70 | 6f 69 6e 74 2e 22 5d 29 |POS or p|oint."])|
|000023e0| 0a 28 66 73 65 74 20 27 | 6b 63 65 6c 6c 2d 76 69 |.(fset '|kcell-vi|
|000023f0| 65 77 3a 70 6c 69 73 74 | 2d 70 6f 69 6e 74 20 23 |ew:plist|-point #|
|00002400| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 70 6f 73 29 |[(&optio|nal pos)|
|00002410| 20 22 8a c0 09 21 54 29 | 87 22 20 5b 6b 63 65 6c | "...!T)|." [kcel|
|00002420| 6c 2d 76 69 65 77 3a 74 | 6f 2d 6c 61 62 65 6c 2d |l-view:t|o-label-|
|00002430| 65 6e 64 20 70 6f 73 5d | 20 32 20 22 5c 0a 52 65 |end pos]| 2 "\.Re|
|00002440| 74 75 72 6e 20 62 75 66 | 66 65 72 20 70 6f 73 69 |turn buf|fer posi|
|00002450| 74 69 6f 6e 20 6f 66 20 | 70 72 6f 70 65 72 74 69 |tion of |properti|
|00002460| 65 73 20 61 73 73 6f 63 | 69 61 74 65 64 20 77 69 |es assoc|iated wi|
|00002470| 74 68 20 63 65 6c 6c 20 | 61 74 20 6f 70 74 69 6f |th cell |at optio|
|00002480| 6e 61 6c 20 50 4f 53 20 | 6f 72 20 70 6f 69 6e 74 |nal POS |or point|
|00002490| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 6b 63 65 6c |."]).(fs|et 'kcel|
|000024a0| 6c 2d 76 69 65 77 3a 74 | 6f 2d 6c 61 62 65 6c 2d |l-view:t|o-label-|
|000024b0| 65 6e 64 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |end #[(&|optional|
|000024c0| 20 70 6f 73 29 20 22 08 | ab 83 08 62 88 c1 20 88 | pos) ".|...b.. .|
|000024d0| 5c 6e ac 84 c3 c4 21 87 | 0d ab 93 c6 60 53 c7 5c |\n....!.|....`S.\|
|000024e0| 22 ac 86 c8 60 c7 5c 22 | 62 88 c8 60 c7 5c 22 62 |"...`.\"|b..`.\"b|
|000024f0| 87 c9 5c 6e ca 5c 22 20 | ab 82 60 87 c3 cb 21 87 |..\n.\" |..`...!.|
|00002500| 22 20 5b 70 6f 73 20 6b | 76 69 65 77 3a 65 6e 64 |" [pos k|view:end|
|00002510| 2d 6f 66 2d 61 63 74 75 | 61 6c 2d 6c 69 6e 65 20 |-of-actu|al-line |
|00002520| 6b 76 69 65 77 20 65 72 | 72 6f 72 20 22 28 6b 63 |kview er|ror "(kc|
|00002530| 65 6c 6c 2d 76 69 65 77 | 3a 74 6f 2d 6c 61 62 65 |ell-view|:to-labe|
|00002540| 6c 2d 65 6e 64 29 3a 20 | 49 6e 76 61 6c 69 64 20 |l-end): |Invalid |
|00002550| 6b 76 69 65 77 3b 20 74 | 72 79 20 7b 4d 2d 78 20 |kview; t|ry {M-x |
|00002560| 6b 6f 74 6c 2d 6d 6f 64 | 65 20 52 45 54 7d 20 74 |kotl-mod|e RET} t|
|00002570| 6f 20 66 69 78 20 69 74 | 2e 22 20 6b 6c 61 62 65 |o fix it|." klabe|
|00002580| 6c 2d 74 79 70 65 3a 63 | 68 61 6e 67 69 6e 67 2d |l-type:c|hanging-|
|00002590| 66 6c 61 67 20 6b 70 72 | 6f 70 65 72 74 79 3a 67 |flag kpr|operty:g|
|000025a0| 65 74 20 6b 63 65 6c 6c | 20 6b 70 72 6f 70 65 72 |et kcell| kproper|
|000025b0| 74 79 3a 70 72 65 76 69 | 6f 75 73 2d 73 69 6e 67 |ty:previ|ous-sing|
|000025c0| 6c 65 2d 63 68 61 6e 67 | 65 20 6b 76 69 65 77 3a |le-chang|e kview:|
|000025d0| 67 65 74 2d 61 74 74 72 | 20 74 6f 2d 6c 61 62 65 |get-attr| to-labe|
|000025e0| 6c 2d 65 6e 64 20 22 28 | 6b 63 65 6c 6c 2d 76 69 |l-end "(|kcell-vi|
|000025f0| 65 77 3a 74 6f 2d 6c 61 | 62 65 6c 2d 65 6e 64 29 |ew:to-la|bel-end)|
|00002600| 3a 20 43 61 6e 27 74 20 | 66 69 6e 64 20 65 6e 64 |: Can't |find end|
|00002610| 20 6f 66 20 63 75 72 72 | 65 6e 74 20 63 65 6c 6c | of curr|ent cell|
|00002620| 27 73 20 6c 61 62 65 6c | 22 5d 20 33 20 22 5c 0a |'s label|"] 3 "\.|
|00002630| 4d 6f 76 65 20 70 6f 69 | 6e 74 20 61 66 74 65 72 |Move poi|nt after|
|00002640| 20 65 6e 64 20 6f 66 20 | 63 75 72 72 65 6e 74 20 | end of |current |
|00002650| 63 65 6c 6c 27 73 20 6c | 61 62 65 6c 20 61 6e 64 |cell's l|abel and|
|00002660| 20 72 65 74 75 72 6e 20 | 70 6f 69 6e 74 2e 22 5d | return |point."]|
|00002670| 29 0a 28 66 73 65 74 20 | 27 6b 63 65 6c 6c 2d 76 |).(fset |'kcell-v|
|00002680| 69 65 77 3a 72 65 66 65 | 72 65 6e 63 65 20 23 5b |iew:refe|rence #[|
|00002690| 28 26 6f 70 74 69 6f 6e | 61 6c 20 70 6f 73 20 72 |(&option|al pos r|
|000026a0| 65 6c 61 74 69 76 65 2d | 64 69 72 29 20 22 c0 09 |elative-|dir) "..|
|000026b0| 5c 6e 5c 22 c3 0c 21 c5 | c6 0c 21 51 44 87 22 20 |\n\"..!.|..!QD." |
|000026c0| 5b 68 70 61 74 68 3a 72 | 65 6c 61 74 69 76 65 2d |[hpath:r|elative-|
|000026d0| 74 6f 20 62 75 66 66 65 | 72 2d 66 69 6c 65 2d 6e |to buffe|r-file-n|
|000026e0| 61 6d 65 20 72 65 6c 61 | 74 69 76 65 2d 64 69 72 |ame rela|tive-dir|
|000026f0| 20 6b 63 65 6c 6c 2d 76 | 69 65 77 3a 6c 61 62 65 | kcell-v|iew:labe|
|00002700| 6c 20 70 6f 73 20 22 3d | 22 20 6b 63 65 6c 6c 2d |l pos "=|" kcell-|
|00002710| 76 69 65 77 3a 69 64 73 | 74 61 6d 70 5d 20 35 20 |view:ids|tamp] 5 |
|00002720| 22 5c 0a 52 65 74 75 72 | 6e 20 61 20 72 65 66 65 |"\.Retur|n a refe|
|00002730| 72 65 6e 63 65 20 74 6f | 20 74 68 65 20 6b 63 65 |rence to| the kce|
|00002740| 6c 6c 20 61 74 20 6f 70 | 74 69 6f 6e 61 6c 20 50 |ll at op|tional P|
|00002750| 4f 53 20 6f 72 20 70 6f | 69 6e 74 20 66 6f 72 20 |OS or po|int for |
|00002760| 75 73 65 20 69 6e 20 61 | 20 6c 69 6e 6b 2e 0a 54 |use in a| link..T|
|00002770| 68 65 20 72 65 66 65 72 | 65 6e 63 65 20 69 73 20 |he refer|ence is |
|00002780| 61 20 6c 69 73 74 20 6f | 66 3a 20 28 6b 63 65 6c |a list o|f: (kcel|
|00002790| 6c 2d 66 69 6c 65 20 63 | 65 6c 6c 2d 72 65 66 29 |l-file c|ell-ref)|
|000027a0| 20 77 68 65 72 65 20 63 | 65 6c 6c 2d 72 65 66 20 | where c|ell-ref |
|000027b0| 69 73 20 61 20 73 74 72 | 69 6e 67 0a 63 6f 6e 73 |is a str|ing.cons|
|000027c0| 69 73 74 69 6e 67 20 6f | 66 20 74 68 65 20 63 65 |isting o|f the ce|
|000027d0| 6c 6c 27 73 20 72 65 6c | 61 74 69 76 65 20 69 64 |ll's rel|ative id|
|000027e0| 2c 20 61 20 73 70 61 63 | 65 2c 20 61 6e 64 20 74 |, a spac|e, and t|
|000027f0| 68 65 20 63 65 6c 6c 27 | 73 20 70 65 72 6d 61 6e |he cell'|s perman|
|00002800| 65 6e 74 20 69 64 2e 0a | 4b 63 65 6c 6c 2d 66 69 |ent id..|Kcell-fi|
|00002810| 6c 65 20 69 73 20 6d 61 | 64 65 20 72 65 6c 61 74 |le is ma|de relat|
|00002820| 69 76 65 20 74 6f 20 6f | 70 74 69 6f 6e 61 6c 20 |ive to o|ptional |
|00002830| 52 45 4c 41 54 49 56 45 | 2d 44 49 52 20 62 65 66 |RELATIVE|-DIR bef|
|00002840| 6f 72 65 20 69 74 20 69 | 73 20 72 65 74 75 72 6e |ore it i|s return|
|00002850| 65 64 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 6b 63 |ed."]).(|fset 'kc|
|00002860| 65 6c 6c 2d 76 69 65 77 | 3a 72 65 6d 6f 76 65 2d |ell-view|:remove-|
|00002870| 61 74 74 72 20 23 5b 28 | 61 74 74 72 69 62 75 74 |attr #[(|attribut|
|00002880| 65 20 26 6f 70 74 69 6f | 6e 61 6c 20 70 6f 73 29 |e &optio|nal pos)|
|00002890| 20 22 8a 08 ab 83 08 62 | 88 c1 c2 20 0b 5c 22 1c | ".....b|... .\".|
|000028a0| 74 ab 87 c5 c6 c7 20 0b | 23 88 0c 2a 87 22 20 5b |t..... .|#..*." [|
|000028b0| 70 6f 73 20 6b 63 65 6c | 6c 3a 72 65 6d 6f 76 65 |pos kcel|l:remove|
|000028c0| 2d 61 74 74 72 20 6b 63 | 65 6c 6c 2d 76 69 65 77 |-attr kc|ell-view|
|000028d0| 3a 63 65 6c 6c 20 61 74 | 74 72 69 62 75 74 65 20 |:cell at|tribute |
|000028e0| 6b 63 65 6c 6c 20 6d 65 | 73 73 61 67 65 20 22 43 |kcell me|ssage "C|
|000028f0| 65 6c 6c 20 3c 25 73 3e | 20 6e 6f 77 20 68 61 73 |ell <%s>| now has|
|00002900| 20 6e 6f 20 25 73 20 61 | 74 74 72 69 62 75 74 65 | no %s a|ttribute|
|00002910| 2e 22 20 6b 63 65 6c 6c | 2d 76 69 65 77 3a 6c 61 |." kcell|-view:la|
|00002920| 62 65 6c 5d 20 34 20 22 | 5c 0a 52 65 6d 6f 76 65 |bel] 4 "|\.Remove|
|00002930| 20 41 54 54 52 49 42 55 | 54 45 2c 20 69 66 20 61 | ATTRIBU|TE, if a|
|00002940| 6e 79 2c 20 66 6f 72 20 | 63 75 72 72 65 6e 74 20 |ny, for |current |
|00002950| 63 65 6c 6c 20 6f 72 20 | 63 65 6c 6c 20 61 74 20 |cell or |cell at |
|00002960| 6f 70 74 69 6f 6e 61 6c | 20 50 4f 53 2e 22 20 22 |optional| POS." "|
|00002970| 2a 53 41 74 74 72 69 62 | 75 74 65 20 74 6f 20 72 |*SAttrib|ute to r|
|00002980| 65 6d 6f 76 65 3a 20 22 | 5d 29 0a 28 66 73 65 74 |emove: "|]).(fset|
|00002990| 20 27 6b 63 65 6c 6c 2d | 76 69 65 77 3a 73 65 74 | 'kcell-|view:set|
|000029a0| 2d 61 74 74 72 20 23 5b | 28 61 74 74 72 69 62 75 |-attr #[|(attribu|
|000029b0| 74 65 20 76 61 6c 75 65 | 20 26 6f 70 74 69 6f 6e |te value| &option|
|000029c0| 61 6c 20 70 6f 73 29 20 | 22 8a 08 ab 83 08 62 88 |al pos) |".....b.|
|000029d0| c1 c2 20 0b 0c 23 1d 74 | ab 88 c6 c7 0b 0c c8 20 |.. ..#.t|....... |
|000029e0| 24 88 0d 2a 87 22 20 5b | 70 6f 73 20 6b 63 65 6c |$..*." [|pos kcel|
|000029f0| 6c 3a 73 65 74 2d 61 74 | 74 72 20 6b 63 65 6c 6c |l:set-at|tr kcell|
|00002a00| 2d 76 69 65 77 3a 63 65 | 6c 6c 20 61 74 74 72 69 |-view:ce|ll attri|
|00002a10| 62 75 74 65 20 76 61 6c | 75 65 20 6b 63 65 6c 6c |bute val|ue kcell|
|00002a20| 20 6d 65 73 73 61 67 65 | 20 22 41 74 74 72 69 62 | message| "Attrib|
|00002a30| 75 74 65 20 25 73 20 73 | 65 74 20 74 6f 20 25 73 |ute %s s|et to %s|
|00002a40| 2c 20 69 6e 20 63 65 6c | 6c 20 3c 25 73 3e 2e 22 |, in cel|l <%s>."|
|00002a50| 20 6b 63 65 6c 6c 2d 76 | 69 65 77 3a 6c 61 62 65 | kcell-v|iew:labe|
|00002a60| 6c 5d 20 35 20 22 5c 0a | 53 65 74 20 41 54 54 52 |l] 5 "\.|Set ATTR|
|00002a70| 49 42 55 54 45 27 73 20 | 56 41 4c 55 45 20 66 6f |IBUTE's |VALUE fo|
|00002a80| 72 20 63 75 72 72 65 6e | 74 20 63 65 6c 6c 20 6f |r curren|t cell o|
|00002a90| 72 20 63 65 6c 6c 20 61 | 74 20 6f 70 74 69 6f 6e |r cell a|t option|
|00002aa0| 61 6c 20 50 4f 53 2e 22 | 20 22 2a 53 41 74 74 72 |al POS."| "*SAttr|
|00002ab0| 69 62 75 74 65 20 74 6f | 20 73 65 74 3a 20 5c 6e |ibute to| set: \n|
|00002ac0| 58 53 65 74 20 76 61 6c | 75 65 20 6f 66 20 25 73 |XSet val|ue of %s|
|00002ad0| 20 74 6f 3a 20 22 5d 29 | 0a 28 66 73 65 74 20 27 | to: "])|.(fset '|
|00002ae0| 6b 63 65 6c 6c 2d 76 69 | 65 77 3a 73 65 74 2d 63 |kcell-vi|ew:set-c|
|00002af0| 65 6c 6c 20 23 5b 28 6b | 63 65 6c 6c 29 20 22 8a |ell #[(k|cell) ".|
|00002b00| c0 20 88 c1 c2 5c 6e 5c | 22 29 87 22 20 5b 6b 63 |. ...\n\|")." [kc|
|00002b10| 65 6c 6c 2d 76 69 65 77 | 3a 74 6f 2d 6c 61 62 65 |ell-view|:to-labe|
|00002b20| 6c 2d 65 6e 64 20 6b 70 | 72 6f 70 65 72 74 79 3a |l-end kp|roperty:|
|00002b30| 73 65 74 20 6b 63 65 6c | 6c 5d 20 33 20 22 5c 0a |set kcel|l] 3 "\.|
|00002b40| 41 74 74 61 63 68 20 4b | 43 45 4c 4c 20 70 72 6f |Attach K|CELL pro|
|00002b50| 70 65 72 74 79 20 74 6f | 20 63 65 6c 6c 20 61 74 |perty to| cell at|
|00002b60| 20 70 6f 69 6e 74 2e 22 | 5d 29 0a 28 66 73 65 74 | point."|]).(fset|
|00002b70| 20 27 6b 63 65 6c 6c 2d | 76 69 65 77 3a 73 69 62 | 'kcell-|view:sib|
|00002b80| 6c 69 6e 67 2d 70 20 23 | 5b 28 26 6f 70 74 69 6f |ling-p #|[(&optio|
|00002b90| 6e 61 6c 20 70 6f 73 20 | 6c 61 62 65 6c 2d 73 65 |nal pos |label-se|
|00002ba0| 70 2d 6c 65 6e 29 20 22 | 8a 08 ab 83 08 62 88 c1 |p-len) "|.....b..|
|00002bb0| c2 0b 5c 22 29 87 22 20 | 5b 70 6f 73 20 6b 63 65 |..\")." |[pos kce|
|00002bc0| 6c 6c 2d 76 69 65 77 3a | 66 6f 72 77 61 72 64 20 |ll-view:|forward |
|00002bd0| 6e 69 6c 20 6c 61 62 65 | 6c 2d 73 65 70 2d 6c 65 |nil labe|l-sep-le|
|00002be0| 6e 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |n] 3 "\.|Return t|
|00002bf0| 20 69 66 20 63 65 6c 6c | 20 61 74 20 6f 70 74 69 | if cell| at opti|
|00002c00| 6f 6e 61 6c 20 50 4f 53 | 20 6f 72 20 70 6f 69 6e |onal POS| or poin|
|00002c10| 74 20 68 61 73 20 61 20 | 73 69 62 6c 69 6e 67 20 |t has a |sibling |
|00002c20| 28 77 68 65 74 68 65 72 | 20 76 69 73 69 62 6c 65 |(whether| visible|
|00002c30| 20 6f 72 20 6e 6f 74 29 | 2e 22 5d 29 0a 28 66 73 | or not)|."]).(fs|
|00002c40| 65 74 20 27 6b 63 65 6c | 6c 2d 76 69 65 77 3a 73 |et 'kcel|l-view:s|
|00002c50| 74 61 72 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |tart #[(|&optiona|
|00002c60| 6c 20 70 6f 73 20 6c 61 | 62 65 6c 2d 73 65 70 2d |l pos la|bel-sep-|
|00002c70| 6c 65 6e 29 20 22 8a c0 | 09 21 5c 6e ae 83 c3 0c |len) "..|.!\n....|
|00002c80| 21 5c 5c 29 87 22 20 5b | 6b 63 65 6c 6c 2d 76 69 |!\\)." [|kcell-vi|
|00002c90| 65 77 3a 74 6f 2d 6c 61 | 62 65 6c 2d 65 6e 64 20 |ew:to-la|bel-end |
|00002ca0| 70 6f 73 20 6c 61 62 65 | 6c 2d 73 65 70 2d 6c 65 |pos labe|l-sep-le|
|00002cb0| 6e 20 6b 76 69 65 77 3a | 6c 61 62 65 6c 2d 73 65 |n kview:|label-se|
|00002cc0| 70 61 72 61 74 6f 72 2d | 6c 65 6e 67 74 68 20 6b |parator-|length k|
|00002cd0| 76 69 65 77 5d 20 33 20 | 22 5c 0a 52 65 74 75 72 |view] 3 |"\.Retur|
|00002ce0| 6e 20 73 74 61 72 74 20 | 70 6f 73 69 74 69 6f 6e |n start |position|
|00002cf0| 20 6f 66 20 63 65 6c 6c | 20 63 6f 6e 74 65 6e 74 | of cell| content|
|00002d00| 73 20 66 72 6f 6d 20 6f | 70 74 69 6f 6e 61 6c 20 |s from o|ptional |
|00002d10| 50 4f 53 20 6f 72 20 70 | 6f 69 6e 74 2e 22 5d 29 |POS or p|oint."])|
|00002d20| 0a 28 66 73 65 74 20 27 | 6b 76 69 65 77 3a 61 64 |.(fset '|kview:ad|
|00002d30| 64 2d 63 65 6c 6c 20 23 | 5b 28 6b 6c 61 62 65 6c |d-cell #|[(klabel|
|00002d40| 20 6c 65 76 65 6c 20 26 | 6f 70 74 69 6f 6e 61 6c | level &|optional|
|00002d50| 20 63 6f 6e 74 65 6e 74 | 73 20 70 72 6f 70 2d 6c | content|s prop-l|
|00002d60| 69 73 74 20 6e 6f 2d 66 | 69 6c 6c 29 20 22 c0 09 |ist no-f|ill) "..|
|00002d70| c2 0b 21 0c 23 1d c6 0b | 0d 0e 07 0e 08 0e 09 25 |..!.#...|.......%|
|00002d80| 88 0d 29 87 22 20 5b 6b | 63 65 6c 6c 3a 63 72 65 |..)." [k|cell:cre|
|00002d90| 61 74 65 20 63 6f 6e 74 | 65 6e 74 73 20 6b 76 69 |ate cont|ents kvi|
|00002da0| 65 77 3a 69 64 2d 69 6e | 63 72 65 6d 65 6e 74 20 |ew:id-in|crement |
|00002db0| 6b 76 69 65 77 20 70 72 | 6f 70 2d 6c 69 73 74 20 |kview pr|op-list |
|00002dc0| 6e 65 77 2d 63 65 6c 6c | 20 6b 63 65 6c 6c 2d 76 |new-cell| kcell-v|
|00002dd0| 69 65 77 3a 63 72 65 61 | 74 65 20 6c 65 76 65 6c |iew:crea|te level|
|00002de0| 20 6b 6c 61 62 65 6c 20 | 6e 6f 2d 66 69 6c 6c 5d | klabel |no-fill]|
|00002df0| 20 36 20 22 5c 0a 43 72 | 65 61 74 65 20 61 20 6e | 6 "\.Cr|eate a n|
|00002e00| 65 77 20 63 65 6c 6c 20 | 77 69 74 68 20 66 75 6c |ew cell |with ful|
|00002e10| 6c 20 4b 4c 41 42 45 4c | 20 61 6e 64 20 61 64 64 |l KLABEL| and add|
|00002e20| 20 69 74 20 61 74 20 70 | 6f 69 6e 74 20 61 74 20 | it at p|oint at |
|00002e30| 4c 45 56 45 4c 20 77 69 | 74 68 69 6e 20 6f 75 74 |LEVEL wi|thin out|
|00002e40| 6c 69 6e 65 2e 0a 31 20 | 3d 20 66 69 72 73 74 20 |line..1 |= first |
|00002e50| 6c 65 76 65 6c 2e 20 20 | 4f 70 74 69 6f 6e 61 6c |level. |Optional|
|00002e60| 20 63 65 6c 6c 20 43 4f | 4e 54 45 4e 54 53 20 61 | cell CO|NTENTS a|
|00002e70| 6e 64 20 50 52 4f 50 2d | 4c 49 53 54 20 6d 61 79 |nd PROP-|LIST may|
|00002e80| 20 61 6c 73 6f 20 62 65 | 20 67 69 76 65 6e 2c 20 | also be| given, |
|00002e90| 61 73 0a 77 65 6c 6c 20 | 61 73 20 4e 4f 2d 46 49 |as.well |as NO-FI|
|00002ea0| 4c 4c 20 77 68 69 63 68 | 20 73 6b 69 70 73 20 66 |LL which| skips f|
|00002eb0| 69 6c 6c 69 6e 67 20 6f | 66 20 61 6e 79 20 43 4f |illing o|f any CO|
|00002ec0| 4e 54 45 4e 54 53 2e 0a | 52 65 74 75 72 6e 20 6e |NTENTS..|Return n|
|00002ed0| 65 77 20 63 65 6c 6c 2e | 22 5d 29 0a 28 66 73 65 |ew cell.|"]).(fse|
|00002ee0| 74 20 27 6b 76 69 65 77 | 3a 62 75 66 66 65 72 20 |t 'kview|:buffer |
|00002ef0| 23 5b 28 6b 76 69 65 77 | 29 20 22 c0 09 21 ad 86 |#[(kview|) "..!..|
|00002f00| c2 c3 09 c4 5c 22 21 87 | 22 20 5b 6b 76 69 65 77 |....\"!.|" [kview|
|00002f10| 3a 69 73 2d 70 20 6b 76 | 69 65 77 20 67 65 74 2d |:is-p kv|iew get-|
|00002f20| 62 75 66 66 65 72 20 6b | 76 69 65 77 3a 67 65 74 |buffer k|view:get|
|00002f30| 2d 61 74 74 72 20 76 69 | 65 77 2d 62 75 66 66 65 |-attr vi|ew-buffe|
|00002f40| 72 2d 6e 61 6d 65 5d 20 | 34 20 22 5c 0a 52 65 74 |r-name] |4 "\.Ret|
|00002f50| 75 72 6e 20 6b 76 69 65 | 77 27 73 20 62 75 66 66 |urn kvie|w's buff|
|00002f60| 65 72 20 6f 72 20 6e 69 | 6c 20 69 66 20 61 72 67 |er or ni|l if arg|
|00002f70| 75 6d 65 6e 74 20 69 73 | 20 6e 6f 74 20 61 20 6b |ument is| not a k|
|00002f80| 76 69 65 77 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |view."])|.(fset '|
|00002f90| 6b 76 69 65 77 3a 63 72 | 65 61 74 65 20 23 5b 28 |kview:cr|eate #[(|
|00002fa0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 26 6f 70 74 |buffer-n|ame &opt|
|00002fb0| 69 6f 6e 61 6c 20 69 64 | 2d 63 6f 75 6e 74 65 72 |ional id|-counter|
|00002fc0| 20 6c 61 62 65 6c 2d 74 | 79 70 65 20 6c 65 76 65 | label-t|ype leve|
|00002fd0| 6c 2d 69 6e 64 65 6e 74 | 20 6c 61 62 65 6c 2d 73 |l-indent| label-s|
|00002fe0| 65 70 61 72 61 74 6f 72 | 20 6c 61 62 65 6c 2d 6d |eparator| label-m|
|00002ff0| 69 6e 2d 77 69 64 74 68 | 29 20 22 c0 09 21 89 1a |in-width|) "..!..|
|00003000| ac 87 c3 c4 09 5c 22 88 | aa 95 0d ab 85 0d c6 55 |.....\".|.......U|
|00003010| ab 84 c6 15 aa 89 0d a8 | ac 85 c3 c7 0d 5c 22 88 |........|.....\".|
|00003020| 5c 6e 71 88 c8 c9 21 ab | 88 ca 0e 09 21 5c 6e 3d |\nq...!.|....!\n=|
|00003030| ac c0 cb c9 21 88 c9 cc | cd 09 ce cf 0e 10 0d 5c |....!...|.......\|
|00003040| 22 d1 0e 11 ae 82 0e 12 | d3 0e 13 ae 82 0e 14 d5 |".......|........|
|00003050| 0e 15 ae 82 0e 16 d7 0e | 15 ae 82 0e 16 47 d8 0e |........|.....G..|
|00003060| 18 ae 82 0e 19 af 0e 45 | 16 09 da 0e 11 ae 82 0e |.......E|........|
|00003070| 12 21 88 0e 09 29 87 22 | 20 5b 67 65 74 2d 62 75 |.!...)."| [get-bu|
|00003080| 66 66 65 72 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |ffer buf|fer-name|
|00003090| 20 62 75 66 20 65 72 72 | 6f 72 20 22 28 6b 76 69 | buf err|or "(kvi|
|000030a0| 65 77 3a 63 72 65 61 74 | 65 29 3a 20 4e 6f 20 73 |ew:creat|e): No s|
|000030b0| 75 63 68 20 62 75 66 66 | 65 72 2c 20 27 25 73 27 |uch buff|er, '%s'|
|000030c0| 2e 22 20 69 64 2d 63 6f | 75 6e 74 65 72 20 30 20 |." id-co|unter 0 |
|000030d0| 22 28 6b 76 69 65 77 3a | 63 72 65 61 74 65 29 3a |"(kview:|create):|
|000030e0| 20 32 6e 64 20 61 72 67 | 2c 20 27 25 73 27 2c 20 | 2nd arg|, '%s', |
|000030f0| 6d 75 73 74 20 62 65 20 | 61 6e 20 69 6e 74 65 67 |must be |an integ|
|00003100| 65 72 2e 22 20 62 6f 75 | 6e 64 70 20 6b 76 69 65 |er." bou|ndp kvie|
|00003110| 77 20 6b 76 69 65 77 3a | 62 75 66 66 65 72 20 6d |w kview:|buffer m|
|00003120| 61 6b 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ake-loca|l-variab|
|00003130| 6c 65 20 70 6c 69 73 74 | 20 76 69 65 77 2d 62 75 |le plist| view-bu|
|00003140| 66 66 65 72 2d 6e 61 6d | 65 20 74 6f 70 2d 63 65 |ffer-nam|e top-ce|
|00003150| 6c 6c 20 6b 63 65 6c 6c | 3a 63 72 65 61 74 65 2d |ll kcell|:create-|
|00003160| 74 6f 70 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |top buff|er-file-|
|00003170| 6e 61 6d 65 20 6c 61 62 | 65 6c 2d 74 79 70 65 20 |name lab|el-type |
|00003180| 6b 76 69 65 77 3a 64 65 | 66 61 75 6c 74 2d 6c 61 |kview:de|fault-la|
|00003190| 62 65 6c 2d 74 79 70 65 | 20 6c 61 62 65 6c 2d 6d |bel-type| label-m|
|000031a0| 69 6e 2d 77 69 64 74 68 | 20 6b 76 69 65 77 3a 64 |in-width| kview:d|
|000031b0| 65 66 61 75 6c 74 2d 6c | 61 62 65 6c 2d 6d 69 6e |efault-l|abel-min|
|000031c0| 2d 77 69 64 74 68 20 6c | 61 62 65 6c 2d 73 65 70 |-width l|abel-sep|
|000031d0| 61 72 61 74 6f 72 20 6b | 76 69 65 77 3a 64 65 66 |arator k|view:def|
|000031e0| 61 75 6c 74 2d 6c 61 62 | 65 6c 2d 73 65 70 61 72 |ault-lab|el-separ|
|000031f0| 61 74 6f 72 20 6c 61 62 | 65 6c 2d 73 65 70 61 72 |ator lab|el-separ|
|00003200| 61 74 6f 72 2d 6c 65 6e | 67 74 68 20 6c 65 76 65 |ator-len|gth leve|
|00003210| 6c 2d 69 6e 64 65 6e 74 | 20 6b 76 69 65 77 3a 64 |l-indent| kview:d|
|00003220| 65 66 61 75 6c 74 2d 6c | 65 76 65 6c 2d 69 6e 64 |efault-l|evel-ind|
|00003230| 65 6e 74 20 6b 76 69 65 | 77 3a 73 65 74 2d 66 75 |ent kvie|w:set-fu|
|00003240| 6e 63 74 69 6f 6e 73 5d | 20 31 37 20 22 5c 0a 52 |nctions]| 17 "\.R|
|00003250| 65 74 75 72 6e 20 61 20 | 6e 65 77 20 6b 76 69 65 |eturn a |new kvie|
|00003260| 77 20 66 6f 72 20 42 55 | 46 46 45 52 2d 4e 41 4d |w for BU|FFER-NAM|
|00003270| 45 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 49 44 2d 43 |E..Optio|nal ID-C|
|00003280| 4f 55 4e 54 45 52 20 69 | 73 20 74 68 65 20 6d 61 |OUNTER i|s the ma|
|00003290| 78 69 6d 75 6d 20 70 65 | 72 6d 61 6e 65 6e 74 20 |ximum pe|rmanent |
|000032a0| 69 64 20 70 72 65 76 69 | 6f 75 73 6c 79 20 67 69 |id previ|ously gi|
|000032b0| 76 65 6e 20 6f 75 74 20 | 69 6e 20 74 68 69 73 0a |ven out |in this.|
|000032c0| 6f 75 74 6c 69 6e 65 2e | 20 20 4f 70 74 69 6f 6e |outline.| Option|
|000032d0| 61 6c 20 4c 41 42 45 4c | 2d 54 59 50 45 2c 20 4c |al LABEL|-TYPE, L|
|000032e0| 45 56 45 4c 2d 49 4e 44 | 45 4e 54 2c 20 4c 41 42 |EVEL-IND|ENT, LAB|
|000032f0| 45 4c 2d 53 45 50 41 52 | 41 54 4f 52 2c 20 61 6e |EL-SEPAR|ATOR, an|
|00003300| 64 0a 4c 41 42 45 4c 2d | 4d 49 4e 2d 57 49 44 54 |d.LABEL-|MIN-WIDT|
|00003310| 48 20 6d 61 79 20 61 6c | 73 6f 20 62 65 20 67 69 |H may al|so be gi|
|00003320| 76 65 6e 2c 20 6f 74 68 | 65 72 77 69 73 65 20 64 |ven, oth|erwise d|
|00003330| 65 66 61 75 6c 74 20 76 | 61 6c 75 65 73 20 61 72 |efault v|alues ar|
|00003340| 65 20 75 73 65 64 2e 0a | 0a 20 20 53 65 65 20 64 |e used..|. See d|
|00003350| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 6f 66 3a |ocumenta|tion of:|
|00003360| 0a 20 27 6b 76 69 65 77 | 3a 64 65 66 61 75 6c 74 |. 'kview|:default|
|00003370| 2d 6c 61 62 65 6c 2d 74 | 79 70 65 27 20 66 6f 72 |-label-t|ype' for|
|00003380| 20 4c 41 42 45 4c 2d 54 | 59 50 45 2c 0a 20 27 6b | LABEL-T|YPE,. 'k|
|00003390| 76 69 65 77 3a 64 65 66 | 61 75 6c 74 2d 6c 65 76 |view:def|ault-lev|
|000033a0| 65 6c 2d 69 6e 64 65 6e | 74 27 20 66 6f 72 20 4c |el-inden|t' for L|
|000033b0| 45 56 45 4c 2d 49 4e 44 | 45 4e 54 2c 0a 20 27 6b |EVEL-IND|ENT,. 'k|
|000033c0| 76 69 65 77 3a 64 65 66 | 61 75 6c 74 2d 6c 61 62 |view:def|ault-lab|
|000033d0| 65 6c 2d 73 65 70 61 72 | 61 74 6f 72 27 20 66 6f |el-separ|ator' fo|
|000033e0| 72 20 4c 41 42 45 4c 2d | 53 45 50 41 52 41 54 4f |r LABEL-|SEPARATO|
|000033f0| 52 2c 0a 20 27 6b 76 69 | 65 77 3a 64 65 66 61 75 |R,. 'kvi|ew:defau|
|00003400| 6c 74 2d 6c 61 62 65 6c | 2d 6d 69 6e 2d 77 69 64 |lt-label|-min-wid|
|00003410| 74 68 27 20 66 6f 72 20 | 4c 41 42 45 4c 2d 4d 49 |th' for |LABEL-MI|
|00003420| 4e 2d 57 49 44 54 48 2e | 22 5d 29 0a 28 66 73 65 |N-WIDTH.|"]).(fse|
|00003430| 74 20 27 6b 76 69 65 77 | 3a 64 65 6c 65 74 65 2d |t 'kview|:delete-|
|00003440| 72 65 67 69 6f 6e 20 23 | 5b 28 73 74 61 72 74 20 |region #|[(start |
|00003450| 65 6e 64 29 20 22 08 09 | 7c 87 22 20 5b 73 74 61 |end) "..||." [sta|
|00003460| 72 74 20 65 6e 64 5d 20 | 32 20 22 5c 0a 44 65 6c |rt end] |2 "\.Del|
|00003470| 65 74 65 20 63 65 6c 6c | 73 20 62 65 74 77 65 65 |ete cell|s betwee|
|00003480| 6e 20 53 54 41 52 54 20 | 61 6e 64 20 45 4e 44 20 |n START |and END |
|00003490| 70 6f 69 6e 74 73 20 66 | 72 6f 6d 20 63 75 72 72 |points f|rom curr|
|000034a0| 65 6e 74 20 76 69 65 77 | 2e 22 5d 29 0a 28 66 73 |ent view|."]).(fs|
|000034b0| 65 74 20 27 6b 76 69 65 | 77 3a 65 6e 64 2d 6f 66 |et 'kvie|w:end-of|
|000034c0| 2d 61 63 74 75 61 6c 2d | 6c 69 6e 65 20 23 5b 6e |-actual-|line #[n|
|000034d0| 69 6c 20 22 c0 c1 c2 c3 | 23 ad 83 c4 c5 21 87 22 |il "....|#....!."|
|000034e0| 20 5b 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 | [re-sea|rch-forw|
|000034f0| 61 72 64 20 22 5b 5c 6e | 0d 5d 22 20 6e 69 6c 20 |ard "[\n|.]" nil |
|00003500| 6d 6f 76 65 20 62 61 63 | 6b 77 61 72 64 2d 63 68 |move bac|kward-ch|
|00003510| 61 72 20 31 5d 20 34 20 | 22 5c 0a 47 6f 20 74 6f |ar 1] 4 |"\.Go to|
|00003520| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 74 68 65 20 | the end| of the |
|00003530| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 77 68 65 |current |line whe|
|00003540| 74 68 65 72 20 63 6f 6c | 6c 61 70 73 65 64 20 6f |ther col|lapsed o|
|00003550| 72 20 6e 6f 74 2e 22 5d | 29 0a 28 66 73 65 74 20 |r not."]|).(fset |
|00003560| 27 6b 76 69 65 77 3a 66 | 69 6c 6c 2d 72 65 67 69 |'kview:f|ill-regi|
|00003570| 6f 6e 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 20 |on #[(st|art end |
|00003580| 26 6f 70 74 69 6f 6e 61 | 6c 20 6b 63 65 6c 6c 20 |&optiona|l kcell |
|00003590| 6a 75 73 74 69 66 79 29 | 20 22 c0 20 60 c1 93 c2 |justify)| ". `...|
|000035a0| 0b 21 c4 c1 1d 1e 06 1e | 07 1e 08 0e 09 62 88 0e |.!......|.....b..|
|000035b0| 06 ab ba ca 0e 0b ae 82 | cc 20 cd 5c 22 ab 89 ce |........|. .\"...|
|000035c0| c1 0e 07 5c 22 16 06 aa | 91 cf 0e 10 c4 5c 22 88 |...\"...|.....\".|
|000035d0| 60 15 d1 20 88 d2 d3 c1 | c4 23 88 0e 06 ad 8c 60 |`.. ....|.#.....`|
|000035e0| 0d 55 3f ad 86 60 0e 14 | 64 5e 57 89 16 06 ac 46 |.U?..`..|d^W....F|
|000035f0| 0e 08 62 88 0e 08 c1 89 | 93 2c 87 22 20 5b 6d 61 |..b.....|.,." [ma|
|00003600| 6b 65 2d 6d 61 72 6b 65 | 72 20 6e 69 6c 20 6b 76 |ke-marke|r nil kv|
|00003610| 69 65 77 3a 6c 61 62 65 | 6c 2d 73 65 70 61 72 61 |iew:labe|l-separa|
|00003620| 74 6f 72 2d 6c 65 6e 67 | 74 68 20 6b 76 69 65 77 |tor-leng|th kview|
|00003630| 20 74 20 70 72 65 76 2d | 70 6f 69 6e 74 20 63 6f | t prev-|point co|
|00003640| 6e 74 69 6e 75 65 20 6c | 61 62 65 6c 2d 73 65 70 |ntinue l|abel-sep|
|00003650| 2d 6c 65 6e 20 6f 70 6f | 69 6e 74 20 73 74 61 72 |-len opo|int star|
|00003660| 74 20 6b 63 65 6c 6c 3a | 67 65 74 2d 61 74 74 72 |t kcell:|get-attr|
|00003670| 20 6b 63 65 6c 6c 20 6b | 63 65 6c 6c 2d 76 69 65 | kcell k|cell-vie|
|00003680| 77 3a 63 65 6c 6c 20 6e | 6f 2d 66 69 6c 6c 20 6b |w:cell n|o-fill k|
|00003690| 63 65 6c 6c 2d 76 69 65 | 77 3a 6e 65 78 74 20 66 |cell-vie|w:next f|
|000036a0| 69 6c 6c 2d 70 61 72 61 | 67 72 61 70 68 20 6a 75 |ill-para|graph ju|
|000036b0| 73 74 69 66 79 20 66 6f | 72 77 61 72 64 2d 70 61 |stify fo|rward-pa|
|000036c0| 72 61 67 72 61 70 68 20 | 72 65 2d 73 65 61 72 63 |ragraph |re-searc|
|000036d0| 68 2d 66 6f 72 77 61 72 | 64 20 22 5b 5e 20 09 5c |h-forwar|d "[^ .\|
|000036e0| 6e 0d 5d 22 20 65 6e 64 | 5d 20 35 20 22 5c 0a 46 |n.]" end|] 5 "\.F|
|000036f0| 69 6c 6c 20 72 65 67 69 | 6f 6e 20 62 65 74 77 65 |ill regi|on betwe|
|00003700| 65 6e 20 53 54 41 52 54 | 20 61 6e 64 20 45 4e 44 |en START| and END|
|00003710| 20 77 69 74 68 69 6e 20 | 63 75 72 72 65 6e 74 20 | within |current |
|00003720| 76 69 65 77 2e 0a 57 69 | 74 68 20 6f 70 74 69 6f |view..Wi|th optio|
|00003730| 6e 61 6c 20 4b 43 45 4c | 4c 2c 20 61 73 73 75 6d |nal KCEL|L, assum|
|00003740| 65 20 53 54 41 52 54 20 | 61 6e 64 20 45 4e 44 20 |e START |and END |
|00003750| 64 65 6c 69 6d 69 74 20 | 74 68 61 74 20 63 65 6c |delimit |that cel|
|00003760| 6c 27 73 20 63 6f 6e 74 | 65 6e 74 73 2e 0a 57 69 |l's cont|ents..Wi|
|00003770| 74 68 20 6f 70 74 69 6f | 6e 61 6c 20 4a 55 53 54 |th optio|nal JUST|
|00003780| 49 46 59 2c 20 6a 75 73 | 74 69 66 79 20 72 65 67 |IFY, jus|tify reg|
|00003790| 69 6f 6e 20 61 73 20 77 | 65 6c 6c 2e 0a 46 69 6c |ion as w|ell..Fil|
|000037a0| 6c 2d 70 72 65 66 69 78 | 20 6d 75 73 74 20 62 65 |l-prefix| must be|
|000037b0| 20 61 20 73 74 72 69 6e | 67 20 6f 66 20 73 70 61 | a strin|g of spa|
|000037c0| 63 65 73 20 74 68 65 20 | 6c 65 6e 67 74 68 20 6f |ces the |length o|
|000037d0| 66 20 74 68 69 73 20 63 | 65 6c 6c 27 73 20 69 6e |f this c|ell's in|
|000037e0| 64 65 6e 74 2c 20 77 68 | 65 6e 0a 74 68 69 73 20 |dent, wh|en.this |
|000037f0| 66 75 6e 63 74 69 6f 6e | 20 69 73 20 63 61 6c 6c |function| is call|
|00003800| 65 64 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ed."]).(|byte-cod|
|00003810| 65 20 22 08 ab 90 09 c2 | 59 ac 85 0b c4 56 ab 86 |e ".....|Y....V..|
|00003820| c5 c6 4d 88 aa 8e 0e 07 | ab 86 c5 c8 4d 88 aa 84 |..M.....|....M...|
|00003830| c5 c9 4d 88 c2 87 22 20 | 5b 68 79 70 65 72 62 3a |..M..." |[hyperb:|
|00003840| 78 65 6d 61 63 73 2d 70 | 20 65 6d 61 63 73 2d 6d |xemacs-p| emacs-m|
|00003850| 69 6e 6f 72 2d 76 65 72 | 73 69 6f 6e 20 31 32 20 |inor-ver|sion 12 |
|00003860| 65 6d 61 63 73 2d 6d 61 | 6a 6f 72 2d 76 65 72 73 |emacs-ma|jor-vers|
|00003870| 69 6f 6e 20 31 39 20 6b | 76 69 65 77 3a 67 6f 74 |ion 19 k|view:got|
|00003880| 6f 2d 63 65 6c 6c 2d 69 | 64 20 23 5b 28 69 64 2d |o-cell-i|d #[(id-|
|00003890| 73 74 72 69 6e 67 29 20 | 22 c0 09 21 c2 89 1b 1c |string) |"..!....|
|000038a0| 1d c6 c7 c2 89 89 89 89 | c3 26 07 89 14 3f 3f ad |........|.&...??.|
|000038b0| 84 0c 62 88 c8 2b 87 22 | 20 5b 73 74 72 69 6e 67 |..b..+."| [string|
|000038c0| 2d 74 6f 2d 69 6e 74 20 | 69 64 2d 73 74 72 69 6e |-to-int |id-strin|
|000038d0| 67 20 6e 69 6c 20 6b 63 | 65 6c 6c 20 6c 61 62 65 |g nil kc|ell labe|
|000038e0| 6c 2d 65 6e 64 20 63 65 | 6c 6c 2d 69 64 20 6d 61 |l-end ce|ll-id ma|
|000038f0| 70 2d 65 78 74 65 6e 74 | 73 20 23 5b 28 65 78 74 |p-extent|s #[(ext|
|00003900| 65 6e 74 20 75 6e 75 73 | 65 64 29 20 22 c0 09 c2 |ent unus|ed) "...|
|00003910| 5c 22 12 c3 5c 6e 21 0c | 55 ad 83 c5 09 21 87 22 |\"..\n!.|U....!."|
|00003920| 20 5b 65 78 74 65 6e 74 | 2d 70 72 6f 70 65 72 74 | [extent|-propert|
|00003930| 79 20 65 78 74 65 6e 74 | 20 6b 63 65 6c 6c 20 6b |y extent| kcell k|
|00003940| 63 65 6c 6c 3a 69 64 73 | 74 61 6d 70 20 63 65 6c |cell:ids|tamp cel|
|00003950| 6c 2d 69 64 20 65 78 74 | 65 6e 74 2d 65 6e 64 2d |l-id ext|ent-end-|
|00003960| 70 6f 73 69 74 69 6f 6e | 5d 20 33 5d 20 74 5d 20 |position|] 3] t] |
|00003970| 39 20 22 4d 6f 76 65 20 | 70 6f 69 6e 74 20 74 6f |9 "Move |point to|
|00003980| 20 73 74 61 72 74 20 6f | 66 20 63 65 6c 6c 20 77 | start o|f cell w|
|00003990| 69 74 68 20 69 64 73 74 | 61 6d 70 20 49 44 2d 53 |ith idst|amp ID-S|
|000039a0| 54 52 49 4e 47 20 61 6e | 64 20 72 65 74 75 72 6e |TRING an|d return|
|000039b0| 20 74 2c 20 65 6c 73 65 | 20 6e 69 6c 2e 22 5d 20 | t, else| nil."] |
|000039c0| 68 79 70 65 72 62 3a 6c | 65 6d 61 63 73 2d 70 20 |hyperb:l|emacs-p |
|000039d0| 23 5b 28 69 64 2d 73 74 | 72 69 6e 67 29 20 22 c0 |#[(id-st|ring) ".|
|000039e0| 09 21 c2 89 1b 1c 1d c6 | c7 21 89 14 3f 3f ad 84 |.!......|.!..??..|
|000039f0| 0c 62 88 c8 2b 87 22 20 | 5b 73 74 72 69 6e 67 2d |.b..+." |[string-|
|00003a00| 74 6f 2d 69 6e 74 20 69 | 64 2d 73 74 72 69 6e 67 |to-int i|d-string|
|00003a10| 20 6e 69 6c 20 6b 63 65 | 6c 6c 20 6c 61 62 65 6c | nil kce|ll label|
|00003a20| 2d 65 6e 64 20 63 65 6c | 6c 2d 69 64 20 6d 61 70 |-end cel|l-id map|
|00003a30| 2d 65 78 74 65 6e 74 73 | 20 23 5b 28 65 78 74 65 |-extents| #[(exte|
|00003a40| 6e 74 20 75 6e 75 73 65 | 64 29 20 22 c0 09 c2 5c |nt unuse|d) "...\|
|00003a50| 22 89 12 ad 8a c3 5c 6e | 21 0c 55 ad 83 c5 09 21 |".....\n|!.U....!|
|00003a60| 87 22 20 5b 65 78 74 65 | 6e 74 2d 70 72 6f 70 65 |." [exte|nt-prope|
|00003a70| 72 74 79 20 65 78 74 65 | 6e 74 20 6b 63 65 6c 6c |rty exte|nt kcell|
|00003a80| 20 6b 63 65 6c 6c 3a 69 | 64 73 74 61 6d 70 20 63 | kcell:i|dstamp c|
|00003a90| 65 6c 6c 2d 69 64 20 65 | 78 74 65 6e 74 2d 65 6e |ell-id e|xtent-en|
|00003aa0| 64 2d 70 6f 73 69 74 69 | 6f 6e 5d 20 34 5d 20 74 |d-positi|on] 4] t|
|00003ab0| 5d 20 34 20 22 4d 6f 76 | 65 20 70 6f 69 6e 74 20 |] 4 "Mov|e point |
|00003ac0| 74 6f 20 73 74 61 72 74 | 20 6f 66 20 63 65 6c 6c |to start| of cell|
|00003ad0| 20 77 69 74 68 20 69 64 | 73 74 61 6d 70 20 49 44 | with id|stamp ID|
|00003ae0| 2d 53 54 52 49 4e 47 20 | 61 6e 64 20 72 65 74 75 |-STRING |and retu|
|00003af0| 72 6e 20 74 2c 20 65 6c | 73 65 20 6e 69 6c 2e 22 |rn t, el|se nil."|
|00003b00| 5d 20 23 5b 28 69 64 2d | 73 74 72 69 6e 67 29 20 |] #[(id-|string) |
|00003b10| 22 c0 09 21 60 c2 89 1b | 1c 1d 1e 06 65 62 88 c7 |"..!`...|....eb..|
|00003b20| 60 c3 5c 22 89 14 ab 94 | 0c 62 ab 90 c8 0c c3 5c |`.\"....|.b.....\|
|00003b30| 22 89 13 ab 6c c9 0b 21 | 0e 06 55 ab 64 0c ab 89 |"...l..!|..U.d...|
|00003b40| ca 0e 0b 21 75 88 cc aa | 84 0d 62 88 c2 2c 87 22 |...!u...|..b..,."|
|00003b50| 20 5b 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 20 | [string|-to-int |
|00003b60| 69 64 2d 73 74 72 69 6e | 67 20 6e 69 6c 20 6b 63 |id-strin|g nil kc|
|00003b70| 65 6c 6c 20 70 6f 73 20 | 6f 70 6f 69 6e 74 20 63 |ell pos |opoint c|
|00003b80| 65 6c 6c 2d 69 64 20 6b | 70 72 6f 70 65 72 74 79 |ell-id k|property|
|00003b90| 3a 6e 65 78 74 2d 73 69 | 6e 67 6c 65 2d 63 68 61 |:next-si|ngle-cha|
|00003ba0| 6e 67 65 20 6b 70 72 6f | 70 65 72 74 79 3a 67 65 |nge kpro|perty:ge|
|00003bb0| 74 20 6b 63 65 6c 6c 3a | 69 64 73 74 61 6d 70 20 |t kcell:|idstamp |
|00003bc0| 6b 76 69 65 77 3a 6c 61 | 62 65 6c 2d 73 65 70 61 |kview:la|bel-sepa|
|00003bd0| 72 61 74 6f 72 2d 6c 65 | 6e 67 74 68 20 6b 76 69 |rator-le|ngth kvi|
|00003be0| 65 77 20 74 5d 20 34 20 | 22 4d 6f 76 65 20 70 6f |ew t] 4 |"Move po|
|00003bf0| 69 6e 74 20 74 6f 20 73 | 74 61 72 74 20 6f 66 20 |int to s|tart of |
|00003c00| 63 65 6c 6c 20 77 69 74 | 68 20 69 64 73 74 61 6d |cell wit|h idstam|
|00003c10| 70 20 49 44 2d 53 54 52 | 49 4e 47 20 61 6e 64 20 |p ID-STR|ING and |
|00003c20| 72 65 74 75 72 6e 20 74 | 2c 20 65 6c 73 65 20 6e |return t|, else n|
|00003c30| 69 6c 2e 22 5d 5d 20 32 | 29 0a 28 66 73 65 74 20 |il."]] 2|).(fset |
|00003c40| 27 6b 76 69 65 77 3a 69 | 64 2d 69 6e 63 72 65 6d |'kview:i|d-increm|
|00003c50| 65 6e 74 20 23 5b 28 6b | 76 69 65 77 29 20 22 c0 |ent #[(k|view) ".|
|00003c60| 09 c2 5c 22 1a c3 5c 6e | c4 5c 22 54 1d c6 5c 6e |..\"..\n|.\"T..\n|
|00003c70| c4 0d 23 88 0d 2a 87 22 | 20 5b 6b 76 69 65 77 3a |..#..*."| [kview:|
|00003c80| 67 65 74 2d 61 74 74 72 | 20 6b 76 69 65 77 20 74 |get-attr| kview t|
|00003c90| 6f 70 2d 63 65 6c 6c 20 | 6b 63 65 6c 6c 3a 67 65 |op-cell |kcell:ge|
|00003ca0| 74 2d 61 74 74 72 20 69 | 64 2d 63 6f 75 6e 74 65 |t-attr i|d-counte|
|00003cb0| 72 20 63 6f 75 6e 74 65 | 72 20 6b 63 65 6c 6c 3a |r counte|r kcell:|
|00003cc0| 73 65 74 2d 61 74 74 72 | 5d 20 34 20 22 5c 0a 52 |set-attr|] 4 "\.R|
|00003cd0| 65 74 75 72 6e 20 6e 65 | 78 74 20 69 64 73 74 61 |eturn ne|xt idsta|
|00003ce0| 6d 70 20 28 61 6e 20 69 | 6e 74 65 67 65 72 29 20 |mp (an i|nteger) |
|00003cf0| 66 6f 72 20 4b 56 49 45 | 57 2e 22 5d 29 0a 28 66 |for KVIE|W."]).(f|
|00003d00| 73 65 74 20 27 6b 76 69 | 65 77 3a 69 64 73 74 61 |set 'kvi|ew:idsta|
|00003d10| 6d 70 2d 74 6f 2d 6c 61 | 62 65 6c 20 23 5b 28 70 |mp-to-la|bel #[(p|
|00003d20| 65 72 6d 61 6e 65 6e 74 | 2d 69 64 29 20 22 8a c0 |ermanent|-id) "..|
|00003d30| 09 21 ad 82 c2 20 29 87 | 22 20 5b 6b 6f 74 6c 2d |.!... ).|" [kotl-|
|00003d40| 6d 6f 64 65 3a 67 6f 74 | 6f 2d 63 65 6c 6c 20 70 |mode:got|o-cell p|
|00003d50| 65 72 6d 61 6e 65 6e 74 | 2d 69 64 20 6b 63 65 6c |ermanent|-id kcel|
|00003d60| 6c 2d 76 69 65 77 3a 6c | 61 62 65 6c 5d 20 32 20 |l-view:l|abel] 2 |
|00003d70| 22 5c 0a 52 65 74 75 72 | 6e 20 72 65 6c 61 74 69 |"\.Retur|n relati|
|00003d80| 76 65 20 6c 61 62 65 6c | 20 66 6f 72 20 63 65 6c |ve label| for cel|
|00003d90| 6c 20 77 69 74 68 20 50 | 45 52 4d 41 4e 45 4e 54 |l with P|ERMANENT|
|00003da0| 2d 49 44 20 77 69 74 68 | 69 6e 20 63 75 72 72 65 |-ID with|in curre|
|00003db0| 6e 74 20 6b 76 69 65 77 | 2e 22 5d 29 0a 28 66 73 |nt kview|."]).(fs|
|00003dc0| 65 74 20 27 6b 76 69 65 | 77 3a 69 6e 73 65 72 74 |et 'kvie|w:insert|
|00003dd0| 2d 63 6f 6e 74 65 6e 74 | 73 20 23 5b 28 6b 63 65 |-content|s #[(kce|
|00003de0| 6c 6c 20 63 6f 6e 74 65 | 6e 74 73 20 6e 6f 2d 66 |ll conte|nts no-f|
|00003df0| 69 6c 6c 29 20 22 60 c0 | 19 1a 0b ae 86 c4 0d 21 |ill) "`.|.......!|
|00003e00| ae 81 c6 89 13 63 88 60 | 11 c7 c0 78 88 60 09 7c |.....c.`|...x.`.||
|00003e10| 88 60 11 0e 08 ab 99 5c | 6e 09 7d 88 65 62 88 c9 |.`.....\|n.}.eb..|
|00003e20| ca c0 cb 23 ab 86 0e 0c | 63 88 aa 73 64 62 88 aa |...#....|c..sdb..|
|00003e30| bb 0b c6 9a ac b6 5c 6e | 62 88 cd 79 88 60 09 7d |......\n|b..y.`.}|
|00003e40| 88 c9 ce c0 cb 23 ab 89 | cf 75 88 0e 0c 63 88 aa |.....#..|.u...c..|
|00003e50| 70 d0 5c 6e 09 0d 23 88 | 65 62 88 c9 d1 c0 cb 23 |p.\n..#.|eb.....#|
|00003e60| ab 89 cf 75 88 0e 0c 63 | 88 aa 70 64 62 88 0b 2a |...u...c|..pdb..*|
|00003e70| 87 22 20 5b 6e 69 6c 20 | 65 6e 64 20 73 74 61 72 |." [nil |end star|
|00003e80| 74 20 63 6f 6e 74 65 6e | 74 73 20 6b 63 65 6c 6c |t conten|ts kcell|
|00003e90| 3a 63 6f 6e 74 65 6e 74 | 73 20 6b 63 65 6c 6c 20 |:content|s kcell |
|00003ea0| 22 22 20 22 5c 6e 0d 22 | 20 6e 6f 2d 66 69 6c 6c |"" "\n."| no-fill|
|00003eb0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00003ec0| 72 64 20 22 5b 5c 6e 0d | 5d 22 20 74 20 66 69 6c |rd "[\n.|]" t fil|
|00003ed0| 6c 2d 70 72 65 66 69 78 | 20 30 20 22 5b 5c 6e 0d |l-prefix| 0 "[\n.|
|00003ee0| 5d 5b 5e 5c 6e 0d 5d 22 | 20 2d 31 20 6b 76 69 65 |][^\n.]"| -1 kvie|
|00003ef0| 77 3a 66 69 6c 6c 2d 72 | 65 67 69 6f 6e 20 22 5b |w:fill-r|egion "[|
|00003f00| 5c 6e 0d 5d 5b 5c 6e 0d | 5d 22 5d 20 35 20 22 5c |\n.][\n.|]"] 5 "\|
|00003f10| 0a 49 6e 73 65 72 74 20 | 4b 43 45 4c 4c 27 73 20 |.Insert |KCELL's |
|00003f20| 43 4f 4e 54 45 4e 54 53 | 20 69 6e 74 6f 20 76 69 |CONTENTS| into vi|
|00003f30| 65 77 20 61 74 20 70 6f | 69 6e 74 20 61 6e 64 20 |ew at po|int and |
|00003f40| 66 69 6c 6c 20 72 65 73 | 75 6c 74 69 6e 67 20 70 |fill res|ulting p|
|00003f50| 61 72 61 67 72 61 70 68 | 73 2c 20 75 6e 6c 65 73 |aragraph|s, unles|
|00003f60| 73 20 4e 4f 2d 46 49 4c | 4c 20 69 73 20 6e 6f 6e |s NO-FIL|L is non|
|00003f70| 2d 6e 69 6c 2e 0a 49 66 | 20 43 4f 4e 54 45 4e 54 |-nil..If| CONTENT|
|00003f80| 53 20 69 73 20 6e 69 6c | 2c 20 67 65 74 20 63 6f |S is nil|, get co|
|00003f90| 6e 74 65 6e 74 73 20 66 | 72 6f 6d 20 4b 43 45 4c |ntents f|rom KCEL|
|00003fa0| 4c 2e 20 20 52 65 74 75 | 72 6e 20 63 6f 6e 74 65 |L. Retu|rn conte|
|00003fb0| 6e 74 73 20 69 6e 73 65 | 72 74 65 64 20 28 74 68 |nts inse|rted (th|
|00003fc0| 69 73 0a 76 61 6c 75 65 | 20 6d 61 79 20 64 69 66 |is.value| may dif|
|00003fd0| 66 65 72 20 66 72 6f 6d | 20 74 68 65 20 76 61 6c |fer from| the val|
|00003fe0| 75 65 20 70 61 73 73 65 | 64 20 69 6e 2e 29 0a 0a |ue passe|d in.)..|
|00003ff0| 46 69 6c 6c 2d 70 72 65 | 66 69 78 20 6d 75 73 74 |Fill-pre|fix must|
|00004000| 20 62 65 20 61 20 73 74 | 72 69 6e 67 20 6f 66 20 | be a st|ring of |
|00004010| 73 70 61 63 65 73 20 74 | 68 65 20 6c 65 6e 67 74 |spaces t|he lengt|
|00004020| 68 20 6f 66 20 74 68 69 | 73 20 63 65 6c 6c 27 73 |h of thi|s cell's|
|00004030| 20 69 6e 64 65 6e 74 2c | 20 77 68 65 6e 0a 74 68 | indent,| when.th|
|00004040| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 69 73 20 63 |is funct|ion is c|
|00004050| 61 6c 6c 65 64 2e 22 5d | 29 0a 28 66 73 65 74 20 |alled."]|).(fset |
|00004060| 27 6b 76 69 65 77 3a 69 | 73 2d 70 20 23 5b 28 6f |'kview:i|s-p #[(o|
|00004070| 62 6a 65 63 74 29 20 22 | 08 3c ad 84 08 40 c1 3d |bject) "|.<...@.=|
|00004080| 87 22 20 5b 6f 62 6a 65 | 63 74 20 6b 76 69 65 77 |." [obje|ct kview|
|00004090| 5d 20 32 20 22 5c 0a 49 | 73 20 4f 42 4a 45 43 54 |] 2 "\.I|s OBJECT|
|000040a0| 20 61 20 6b 76 69 65 77 | 3f 22 5d 29 0a 28 66 73 | a kview|?"]).(fs|
|000040b0| 65 74 20 27 6b 76 69 65 | 77 3a 6b 6f 74 6c 20 23 |et 'kvie|w:kotl #|
|000040c0| 5b 28 6b 76 69 65 77 29 | 20 22 c0 09 21 ad 84 c2 |[(kview)| "..!...|
|000040d0| 09 c3 5c 22 87 22 20 5b | 6b 76 69 65 77 3a 69 73 |..\"." [|kview:is|
|000040e0| 2d 70 20 6b 76 69 65 77 | 20 6b 76 69 65 77 3a 67 |-p kview| kview:g|
|000040f0| 65 74 2d 61 74 74 72 20 | 6b 6f 74 6c 5d 20 33 20 |et-attr |kotl] 3 |
|00004100| 22 5c 0a 52 65 74 75 72 | 6e 20 6b 76 69 65 77 27 |"\.Retur|n kview'|
|00004110| 73 20 6b 6f 74 6c 20 6f | 62 6a 65 63 74 20 6f 72 |s kotl o|bject or|
|00004120| 20 6e 69 6c 20 69 66 20 | 61 72 67 75 6d 65 6e 74 | nil if |argument|
|00004130| 20 69 73 20 6e 6f 74 20 | 61 20 6b 76 69 65 77 2e | is not |a kview.|
|00004140| 22 5d 29 0a 28 66 73 65 | 74 20 27 6b 76 69 65 77 |"]).(fse|t 'kview|
|00004150| 3a 6c 61 62 65 6c 20 23 | 5b 28 6b 6c 61 62 65 6c |:label #|[(klabel|
|00004160| 2d 66 75 6e 63 74 69 6f | 6e 20 70 72 65 76 2d 6c |-functio|n prev-l|
|00004170| 61 62 65 6c 20 63 68 69 | 6c 64 2d 70 29 20 22 08 |abel chi|ld-p) ".|
|00004180| 09 5c 6e 5c 22 87 22 20 | 5b 6b 6c 61 62 65 6c 2d |.\n\"." |[klabel-|
|00004190| 66 75 6e 63 74 69 6f 6e | 20 70 72 65 76 2d 6c 61 |function| prev-la|
|000041a0| 62 65 6c 20 63 68 69 6c | 64 2d 70 5d 20 33 20 22 |bel chil|d-p] 3 "|
|000041b0| 5c 0a 52 65 74 75 72 6e | 20 6c 61 62 65 6c 20 73 |\.Return| label s|
|000041c0| 74 72 69 6e 67 20 74 6f | 20 64 69 73 70 6c 61 79 |tring to| display|
|000041d0| 20 66 6f 72 20 63 75 72 | 72 65 6e 74 20 63 65 6c | for cur|rent cel|
|000041e0| 6c 20 63 6f 6d 70 75 74 | 65 64 20 66 72 6f 6d 20 |l comput|ed from |
|000041f0| 4b 4c 41 42 45 4c 2d 46 | 55 4e 43 54 49 4f 4e 2c |KLABEL-F|UNCTION,|
|00004200| 20 50 52 45 56 2d 4c 41 | 42 45 4c 20 61 6e 64 20 | PREV-LA|BEL and |
|00004210| 43 48 49 4c 44 2d 50 2e | 22 5d 29 0a 28 66 73 65 |CHILD-P.|"]).(fse|
|00004220| 74 20 27 6b 76 69 65 77 | 3a 6c 61 62 65 6c 2d 66 |t 'kview|:label-f|
|00004230| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 6b 76 69 65 77 |unction |#[(kview|
|00004240| 29 20 22 c0 09 c2 5c 22 | 87 22 20 5b 6b 76 69 65 |) "...\"|." [kvie|
|00004250| 77 3a 67 65 74 2d 61 74 | 74 72 20 6b 76 69 65 77 |w:get-at|tr kview|
|00004260| 20 6c 61 62 65 6c 2d 66 | 75 6e 63 74 69 6f 6e 5d | label-f|unction]|
|00004270| 20 33 20 22 5c 0a 52 65 | 74 75 72 6e 20 66 75 6e | 3 "\.Re|turn fun|
|00004280| 63 74 69 6f 6e 20 77 68 | 69 63 68 20 77 69 6c 6c |ction wh|ich will|
|00004290| 20 72 65 74 75 72 6e 20 | 64 69 73 70 6c 61 79 20 | return |display |
|000042a0| 6c 61 62 65 6c 20 66 6f | 72 20 63 75 72 72 65 6e |label fo|r curren|
|000042b0| 74 20 63 65 6c 6c 20 69 | 6e 20 4b 56 49 45 57 2e |t cell i|n KVIEW.|
|000042c0| 0a 46 75 6e 63 74 69 6f | 6e 20 73 69 67 6e 61 74 |.Functio|n signat|
|000042d0| 75 72 65 20 69 73 3a 20 | 28 66 75 6e 63 20 70 72 |ure is: |(func pr|
|000042e0| 65 76 2d 6c 61 62 65 6c | 20 26 6f 70 74 69 6f 6e |ev-label| &option|
|000042f0| 61 6c 20 63 68 69 6c 64 | 2d 70 29 2c 20 77 68 65 |al child|-p), whe|
|00004300| 72 65 20 70 72 65 76 2d | 6c 61 62 65 6c 0a 69 73 |re prev-|label.is|
|00004310| 20 74 68 65 20 64 69 73 | 70 6c 61 79 20 6c 61 62 | the dis|play lab|
|00004320| 65 6c 20 6f 66 20 74 68 | 65 20 63 65 6c 6c 20 70 |el of th|e cell p|
|00004330| 72 65 63 65 64 69 6e 67 | 20 74 68 65 20 63 75 72 |receding| the cur|
|00004340| 72 65 6e 74 20 6f 6e 65 | 20 61 6e 64 20 63 68 69 |rent one| and chi|
|00004350| 6c 64 2d 70 20 69 73 0a | 6e 6f 6e 2d 6e 69 6c 20 |ld-p is.|non-nil |
|00004360| 69 66 20 63 65 6c 6c 20 | 69 73 20 74 6f 20 62 65 |if cell |is to be|
|00004370| 20 74 68 65 20 63 68 69 | 6c 64 20 6f 66 20 74 68 | the chi|ld of th|
|00004380| 65 20 70 72 65 63 65 64 | 69 6e 67 20 63 65 6c 6c |e preced|ing cell|
|00004390| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 6b 76 69 65 |."]).(fs|et 'kvie|
|000043a0| 77 3a 6c 61 62 65 6c 2d | 6d 69 6e 2d 77 69 64 74 |w:label-|min-widt|
|000043b0| 68 20 23 5b 28 6b 76 69 | 65 77 29 20 22 c0 09 21 |h #[(kvi|ew) "..!|
|000043c0| ad 84 c2 09 c3 5c 22 87 | 22 20 5b 6b 76 69 65 77 |.....\".|" [kview|
|000043d0| 3a 69 73 2d 70 20 6b 76 | 69 65 77 20 6b 76 69 65 |:is-p kv|iew kvie|
|000043e0| 77 3a 67 65 74 2d 61 74 | 74 72 20 6c 61 62 65 6c |w:get-at|tr label|
|000043f0| 2d 6d 69 6e 2d 77 69 64 | 74 68 5d 20 33 20 22 5c |-min-wid|th] 3 "\|
|00004400| 0a 52 65 74 75 72 6e 20 | 6b 76 69 65 77 27 73 20 |.Return |kview's |
|00004410| 6c 61 62 65 6c 2d 6d 69 | 6e 2d 77 69 64 74 68 20 |label-mi|n-width |
|00004420| 73 65 74 74 69 6e 67 20 | 6f 72 20 6e 69 6c 20 69 |setting |or nil i|
|00004430| 66 20 61 72 67 75 6d 65 | 6e 74 20 69 73 20 6e 6f |f argume|nt is no|
|00004440| 74 20 61 20 6b 76 69 65 | 77 2e 0a 53 65 65 20 64 |t a kvie|w..See d|
|00004450| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 66 6f 72 |ocumenta|tion for|
|00004460| 20 6b 76 69 65 77 3a 64 | 65 66 61 75 6c 74 2d 6c | kview:d|efault-l|
|00004470| 61 62 65 6c 2d 6d 69 6e | 2d 77 69 64 74 68 2e 22 |abel-min|-width."|
|00004480| 5d 29 0a 28 66 73 65 74 | 20 27 6b 76 69 65 77 3a |]).(fset| 'kview:|
|00004490| 6c 61 62 65 6c 2d 73 65 | 70 61 72 61 74 6f 72 20 |label-se|parator |
|000044a0| 23 5b 28 6b 76 69 65 77 | 29 20 22 c0 09 21 ad 84 |#[(kview|) "..!..|
|000044b0| c2 09 c3 5c 22 87 22 20 | 5b 6b 76 69 65 77 3a 69 |...\"." |[kview:i|
|000044c0| 73 2d 70 20 6b 76 69 65 | 77 20 6b 76 69 65 77 3a |s-p kvie|w kview:|
|000044d0| 67 65 74 2d 61 74 74 72 | 20 6c 61 62 65 6c 2d 73 |get-attr| label-s|
|000044e0| 65 70 61 72 61 74 6f 72 | 5d 20 33 20 22 5c 0a 52 |eparator|] 3 "\.R|
|000044f0| 65 74 75 72 6e 20 6b 76 | 69 65 77 27 73 20 6c 61 |eturn kv|iew's la|
|00004500| 62 65 6c 2d 73 65 70 61 | 72 61 74 6f 72 20 73 65 |bel-sepa|rator se|
|00004510| 74 74 69 6e 67 20 6f 72 | 20 6e 69 6c 20 69 66 20 |tting or| nil if |
|00004520| 61 72 67 75 6d 65 6e 74 | 20 69 73 20 6e 6f 74 20 |argument| is not |
|00004530| 61 20 6b 76 69 65 77 2e | 0a 53 65 65 20 64 6f 63 |a kview.|.See doc|
|00004540| 75 6d 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 6b |umentati|on for k|
|00004550| 76 69 65 77 3a 64 65 66 | 61 75 6c 74 2d 6c 61 62 |view:def|ault-lab|
|00004560| 65 6c 2d 73 65 70 61 72 | 61 74 6f 72 2e 22 5d 29 |el-separ|ator."])|
|00004570| 0a 28 66 73 65 74 20 27 | 6b 76 69 65 77 3a 6c 61 |.(fset '|kview:la|
|00004580| 62 65 6c 2d 73 65 70 61 | 72 61 74 6f 72 2d 6c 65 |bel-sepa|rator-le|
|00004590| 6e 67 74 68 20 23 5b 28 | 6b 76 69 65 77 29 20 22 |ngth #[(|kview) "|
|000045a0| c0 09 c2 5c 22 87 22 20 | 5b 6b 76 69 65 77 3a 67 |...\"." |[kview:g|
|000045b0| 65 74 2d 61 74 74 72 20 | 6b 76 69 65 77 20 6c 61 |et-attr |kview la|
|000045c0| 62 65 6c 2d 73 65 70 61 | 72 61 74 6f 72 2d 6c 65 |bel-sepa|rator-le|
|000045d0| 6e 67 74 68 5d 20 33 20 | 22 5c 0a 52 65 74 75 72 |ngth] 3 |"\.Retur|
|000045e0| 6e 20 6b 76 69 65 77 27 | 73 20 6c 61 62 65 6c 2d |n kview'|s label-|
|000045f0| 73 65 70 61 72 61 74 6f | 72 20 6c 65 6e 67 74 68 |separato|r length|
|00004600| 20 6f 72 20 6e 69 6c 20 | 69 66 20 61 72 67 75 6d | or nil |if argum|
|00004610| 65 6e 74 20 69 73 20 6e | 6f 74 20 61 20 6b 76 69 |ent is n|ot a kvi|
|00004620| 65 77 2e 0a 53 65 65 20 | 64 6f 63 75 6d 65 6e 74 |ew..See |document|
|00004630| 61 74 69 6f 6e 20 66 6f | 72 20 6b 76 69 65 77 3a |ation fo|r kview:|
|00004640| 64 65 66 61 75 6c 74 2d | 6c 61 62 65 6c 2d 73 65 |default-|label-se|
|00004650| 70 61 72 61 74 6f 72 2e | 22 5d 29 0a 28 66 73 65 |parator.|"]).(fse|
|00004660| 74 20 27 6b 76 69 65 77 | 3a 6c 61 62 65 6c 2d 74 |t 'kview|:label-t|
|00004670| 79 70 65 20 23 5b 28 6b | 76 69 65 77 29 20 22 c0 |ype #[(k|view) ".|
|00004680| 09 21 ad 84 c2 09 c3 5c | 22 87 22 20 5b 6b 76 69 |.!.....\|"." [kvi|
|00004690| 65 77 3a 69 73 2d 70 20 | 6b 76 69 65 77 20 6b 76 |ew:is-p |kview kv|
|000046a0| 69 65 77 3a 67 65 74 2d | 61 74 74 72 20 6c 61 62 |iew:get-|attr lab|
|000046b0| 65 6c 2d 74 79 70 65 5d | 20 33 20 22 5c 0a 52 65 |el-type]| 3 "\.Re|
|000046c0| 74 75 72 6e 20 6b 76 69 | 65 77 27 73 20 6c 61 62 |turn kvi|ew's lab|
|000046d0| 65 6c 2d 74 79 70 65 20 | 73 65 74 74 69 6e 67 20 |el-type |setting |
|000046e0| 6f 72 20 6e 69 6c 20 69 | 66 20 61 72 67 75 6d 65 |or nil i|f argume|
|000046f0| 6e 74 20 69 73 20 6e 6f | 74 20 61 20 6b 76 69 65 |nt is no|t a kvie|
|00004700| 77 2e 0a 53 65 65 20 64 | 6f 63 75 6d 65 6e 74 61 |w..See d|ocumenta|
|00004710| 74 69 6f 6e 20 66 6f 72 | 20 6b 76 69 65 77 3a 64 |tion for| kview:d|
|00004720| 65 66 61 75 6c 74 2d 6c | 61 62 65 6c 2d 74 79 70 |efault-l|abel-typ|
|00004730| 65 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 6b 76 69 |e."]).(f|set 'kvi|
|00004740| 65 77 3a 6c 65 76 65 6c | 2d 69 6e 64 65 6e 74 20 |ew:level|-indent |
|00004750| 23 5b 28 6b 76 69 65 77 | 29 20 22 c0 09 21 ad 84 |#[(kview|) "..!..|
|00004760| c2 09 c3 5c 22 87 22 20 | 5b 6b 76 69 65 77 3a 69 |...\"." |[kview:i|
|00004770| 73 2d 70 20 6b 76 69 65 | 77 20 6b 76 69 65 77 3a |s-p kvie|w kview:|
|00004780| 67 65 74 2d 61 74 74 72 | 20 6c 65 76 65 6c 2d 69 |get-attr| level-i|
|00004790| 6e 64 65 6e 74 5d 20 33 | 20 22 5c 0a 52 65 74 75 |ndent] 3| "\.Retu|
|000047a0| 72 6e 20 6b 76 69 65 77 | 27 73 20 6c 65 76 65 6c |rn kview|'s level|
|000047b0| 2d 69 6e 64 65 6e 74 20 | 73 65 74 74 69 6e 67 20 |-indent |setting |
|000047c0| 6f 72 20 6e 69 6c 20 69 | 66 20 61 72 67 75 6d 65 |or nil i|f argume|
|000047d0| 6e 74 20 69 73 20 6e 6f | 74 20 61 20 6b 76 69 65 |nt is no|t a kvie|
|000047e0| 77 2e 0a 53 65 65 20 64 | 6f 63 75 6d 65 6e 74 61 |w..See d|ocumenta|
|000047f0| 74 69 6f 6e 20 66 6f 72 | 20 6b 76 69 65 77 3a 64 |tion for| kview:d|
|00004800| 65 66 61 75 6c 74 2d 6c | 65 76 65 6c 2d 69 6e 64 |efault-l|evel-ind|
|00004810| 65 6e 74 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6b |ent."]).|(fset 'k|
|00004820| 76 69 65 77 3a 6d 61 70 | 2d 62 72 61 6e 63 68 20 |view:map|-branch |
|00004830| 23 5b 28 66 75 6e 63 20 | 6b 76 69 65 77 20 26 6f |#[(func |kview &o|
|00004840| 70 74 69 6f 6e 61 6c 20 | 66 69 72 73 74 2d 70 20 |ptional |first-p |
|00004850| 76 69 73 69 62 6c 65 2d | 70 29 20 22 8a c0 09 21 |visible-|p) "...!|
|00004860| 71 88 c2 c3 09 21 1c 1d | 0e 06 ab 86 c7 c8 0c 5c |q....!..|.......\|
|00004870| 22 ac 7a c9 c2 0c 5c 22 | 1e 5c 6e 0e 0b 09 21 0d |".z...\"|.\n...!.|
|00004880| 42 15 cc 0e 0d 0c 5c 22 | ab 89 c9 c2 0c 5c 22 0e |B.....\"|.....\".|
|00004890| 5c 6e 56 ac 69 29 0d 9f | 2b 87 22 20 5b 6b 76 69 |\nV.i)..|+." [kvi|
|000048a0| 65 77 3a 62 75 66 66 65 | 72 20 6b 76 69 65 77 20 |ew:buffe|r kview |
|000048b0| 6e 69 6c 20 6b 76 69 65 | 77 3a 6c 61 62 65 6c 2d |nil kvie|w:label-|
|000048c0| 73 65 70 61 72 61 74 6f | 72 2d 6c 65 6e 67 74 68 |separato|r-length|
|000048d0| 20 6c 61 62 65 6c 2d 73 | 65 70 2d 6c 65 6e 20 72 | label-s|ep-len r|
|000048e0| 65 73 75 6c 74 73 20 66 | 69 72 73 74 2d 70 20 6b |esults f|irst-p k|
|000048f0| 63 65 6c 6c 2d 76 69 65 | 77 3a 62 61 63 6b 77 61 |cell-vie|w:backwa|
|00004900| 72 64 20 74 20 6b 63 65 | 6c 6c 2d 76 69 65 77 3a |rd t kce|ll-view:|
|00004910| 69 6e 64 65 6e 74 20 63 | 65 6c 6c 2d 69 6e 64 65 |indent c|ell-inde|
|00004920| 6e 74 20 66 75 6e 63 20 | 6b 63 65 6c 6c 2d 76 69 |nt func |kcell-vi|
|00004930| 65 77 3a 6e 65 78 74 20 | 76 69 73 69 62 6c 65 2d |ew:next |visible-|
|00004940| 70 5d 20 33 20 22 5c 0a | 41 70 70 6c 69 65 73 20 |p] 3 "\.|Applies |
|00004950| 46 55 4e 43 20 74 6f 20 | 74 68 65 20 73 69 62 6c |FUNC to |the sibl|
|00004960| 69 6e 67 20 74 72 65 65 | 73 20 66 72 6f 6d 20 70 |ing tree|s from p|
|00004970| 6f 69 6e 74 20 66 6f 72 | 77 61 72 64 20 77 69 74 |oint for|ward wit|
|00004980| 68 69 6e 20 4b 56 49 45 | 57 20 61 6e 64 20 72 65 |hin KVIE|W and re|
|00004990| 74 75 72 6e 73 20 72 65 | 73 75 6c 74 73 20 61 73 |turns re|sults as|
|000049a0| 20 61 20 6c 69 73 74 2e | 0a 57 69 74 68 20 6f 70 | a list.|.With op|
|000049b0| 74 69 6f 6e 61 6c 20 46 | 49 52 53 54 2d 50 20 6e |tional F|IRST-P n|
|000049c0| 6f 6e 2d 6e 69 6c 2c 20 | 62 65 67 69 6e 73 20 77 |on-nil, |begins w|
|000049d0| 69 74 68 20 66 69 72 73 | 74 20 73 69 62 6c 69 6e |ith firs|t siblin|
|000049e0| 67 20 69 6e 20 63 75 72 | 72 65 6e 74 20 62 72 61 |g in cur|rent bra|
|000049f0| 6e 63 68 2e 0a 57 69 74 | 68 20 6f 70 74 69 6f 6e |nch..Wit|h option|
|00004a00| 61 6c 20 56 49 53 49 42 | 4c 45 2d 50 2c 20 63 6f |al VISIB|LE-P, co|
|00004a10| 6e 73 69 64 65 72 73 20 | 6f 6e 6c 79 20 74 68 6f |nsiders |only tho|
|00004a20| 73 65 20 73 69 62 6c 69 | 6e 67 20 63 65 6c 6c 73 |se sibli|ng cells|
|00004a30| 20 74 68 61 74 20 61 72 | 65 20 76 69 73 69 62 6c | that ar|e visibl|
|00004a40| 65 0a 69 6e 20 74 68 65 | 20 76 69 65 77 2e 0a 0a |e.in the| view...|
|00004a50| 46 55 4e 43 20 73 68 6f | 75 6c 64 20 74 61 6b 65 |FUNC sho|uld take|
|00004a60| 20 6f 6e 65 20 61 72 67 | 75 6d 65 6e 74 2c 20 74 | one arg|ument, t|
|00004a70| 68 65 20 6b 76 69 65 77 | 20 6c 6f 63 61 6c 20 76 |he kview| local v|
|00004a80| 61 72 69 61 62 6c 65 20 | 6f 66 20 74 68 65 20 63 |ariable |of the c|
|00004a90| 75 72 72 65 6e 74 0a 62 | 75 66 66 65 72 20 6f 72 |urrent.b|uffer or|
|00004aa0| 20 73 6f 6d 65 20 6f 74 | 68 65 72 20 6b 76 69 65 | some ot|her kvie|
|00004ab0| 77 2c 20 61 6e 64 20 73 | 68 6f 75 6c 64 20 6f 70 |w, and s|hould op|
|00004ac0| 65 72 61 74 65 20 75 70 | 6f 6e 20 74 68 65 20 63 |erate up|on the c|
|00004ad0| 65 6c 6c 20 61 74 20 70 | 6f 69 6e 74 2e 0a 0a 60 |ell at p|oint...`|
|00004ae0| 43 65 6c 6c 2d 69 6e 64 | 65 6e 74 27 20 63 6f 6e |Cell-ind|ent' con|
|00004af0| 74 61 69 6e 73 20 74 68 | 65 20 69 6e 64 65 6e 74 |tains th|e indent|
|00004b00| 61 74 69 6f 6e 20 76 61 | 6c 75 65 20 6f 66 20 74 |ation va|lue of t|
|00004b10| 68 65 20 66 69 72 73 74 | 20 63 65 6c 6c 20 6d 61 |he first| cell ma|
|00004b20| 70 70 65 64 20 77 68 65 | 6e 0a 46 55 4e 43 20 69 |pped whe|n.FUNC i|
|00004b30| 73 20 63 61 6c 6c 65 64 | 20 73 6f 20 74 68 61 74 |s called| so that|
|00004b40| 20 69 74 20 6d 61 79 20 | 74 65 73 74 20 61 67 61 | it may |test aga|
|00004b50| 69 6e 73 74 20 74 68 69 | 73 20 76 61 6c 75 65 2e |inst thi|s value.|
|00004b60| 20 20 60 4c 61 62 65 6c | 2d 73 65 70 2d 6c 65 6e | `Label|-sep-len|
|00004b70| 27 0a 63 6f 6e 74 61 69 | 6e 73 20 74 68 65 20 6c |'.contai|ns the l|
|00004b80| 61 62 65 6c 20 73 65 70 | 61 72 61 74 6f 72 20 6c |abel sep|arator l|
|00004b90| 65 6e 67 74 68 2e 0a 0a | 53 65 65 20 61 6c 73 6f |ength...|See also|
|00004ba0| 20 27 6b 76 69 65 77 3a | 6d 61 70 2d 73 69 62 6c | 'kview:|map-sibl|
|00004bb0| 69 6e 67 73 27 20 61 6e | 64 20 27 6b 76 69 65 77 |ings' an|d 'kview|
|00004bc0| 3a 6d 61 70 2d 74 72 65 | 65 27 2e 22 5d 29 0a 28 |:map-tre|e'."]).(|
|00004bd0| 66 73 65 74 20 27 6b 76 | 69 65 77 3a 6d 61 70 2d |fset 'kv|iew:map-|
|00004be0| 73 69 62 6c 69 6e 67 73 | 20 23 5b 28 66 75 6e 63 |siblings| #[(func|
|00004bf0| 20 6b 76 69 65 77 20 26 | 6f 70 74 69 6f 6e 61 6c | kview &|optional|
|00004c00| 20 66 69 72 73 74 2d 70 | 20 76 69 73 69 62 6c 65 | first-p| visible|
|00004c10| 2d 70 29 20 22 8a c0 09 | 21 71 88 c2 c3 09 21 1c |-p) "...|!q....!.|
|00004c20| 1d 0e 06 ab 86 c7 c8 0c | 5c 22 ac 7a c9 c2 0c 5c |........|\".z...\|
|00004c30| 22 1e 5c 6e 0e 0b 09 21 | 0d 42 15 cc 0e 0d 0c 5c |".\n...!|.B.....\|
|00004c40| 22 ac 72 29 0d 9f 2b 87 | 22 20 5b 6b 76 69 65 77 |".r)..+.|" [kview|
|00004c50| 3a 62 75 66 66 65 72 20 | 6b 76 69 65 77 20 6e 69 |:buffer |kview ni|
|00004c60| 6c 20 6b 76 69 65 77 3a | 6c 61 62 65 6c 2d 73 65 |l kview:|label-se|
|00004c70| 70 61 72 61 74 6f 72 2d | 6c 65 6e 67 74 68 20 6c |parator-|length l|
|00004c80| 61 62 65 6c 2d 73 65 70 | 2d 6c 65 6e 20 72 65 73 |abel-sep|-len res|
|00004c90| 75 6c 74 73 20 66 69 72 | 73 74 2d 70 20 6b 63 65 |ults fir|st-p kce|
|00004ca0| 6c 6c 2d 76 69 65 77 3a | 62 61 63 6b 77 61 72 64 |ll-view:|backward|
|00004cb0| 20 74 20 6b 63 65 6c 6c | 2d 76 69 65 77 3a 69 6e | t kcell|-view:in|
|00004cc0| 64 65 6e 74 20 63 65 6c | 6c 2d 69 6e 64 65 6e 74 |dent cel|l-indent|
|00004cd0| 20 66 75 6e 63 20 6b 63 | 65 6c 6c 2d 76 69 65 77 | func kc|ell-view|
|00004ce0| 3a 66 6f 72 77 61 72 64 | 20 76 69 73 69 62 6c 65 |:forward| visible|
|00004cf0| 2d 70 5d 20 33 20 22 5c | 0a 41 70 70 6c 69 65 73 |-p] 3 "\|.Applies|
|00004d00| 20 46 55 4e 43 20 74 6f | 20 74 68 65 20 73 69 62 | FUNC to| the sib|
|00004d10| 6c 69 6e 67 20 63 65 6c | 6c 73 20 66 72 6f 6d 20 |ling cel|ls from |
|00004d20| 70 6f 69 6e 74 20 66 6f | 72 77 61 72 64 20 77 69 |point fo|rward wi|
|00004d30| 74 68 69 6e 20 4b 56 49 | 45 57 20 61 6e 64 20 72 |thin KVI|EW and r|
|00004d40| 65 74 75 72 6e 73 20 72 | 65 73 75 6c 74 73 20 61 |eturns r|esults a|
|00004d50| 73 20 61 20 6c 69 73 74 | 2e 0a 57 69 74 68 20 6f |s a list|..With o|
|00004d60| 70 74 69 6f 6e 61 6c 20 | 46 49 52 53 54 2d 50 20 |ptional |FIRST-P |
|00004d70| 6e 6f 6e 2d 6e 69 6c 2c | 20 62 65 67 69 6e 73 20 |non-nil,| begins |
|00004d80| 77 69 74 68 20 66 69 72 | 73 74 20 73 69 62 6c 69 |with fir|st sibli|
|00004d90| 6e 67 20 69 6e 20 63 75 | 72 72 65 6e 74 20 62 72 |ng in cu|rrent br|
|00004da0| 61 6e 63 68 2e 0a 57 69 | 74 68 20 6f 70 74 69 6f |anch..Wi|th optio|
|00004db0| 6e 61 6c 20 56 49 53 49 | 42 4c 45 2d 50 2c 20 63 |nal VISI|BLE-P, c|
|00004dc0| 6f 6e 73 69 64 65 72 73 | 20 6f 6e 6c 79 20 74 68 |onsiders| only th|
|00004dd0| 6f 73 65 20 73 69 62 6c | 69 6e 67 20 63 65 6c 6c |ose sibl|ing cell|
|00004de0| 73 20 74 68 61 74 20 61 | 72 65 20 76 69 73 69 62 |s that a|re visib|
|00004df0| 6c 65 0a 69 6e 20 74 68 | 65 20 76 69 65 77 2e 0a |le.in th|e view..|
|00004e00| 0a 46 55 4e 43 20 73 68 | 6f 75 6c 64 20 74 61 6b |.FUNC sh|ould tak|
|00004e10| 65 20 6f 6e 65 20 61 72 | 67 75 6d 65 6e 74 2c 20 |e one ar|gument, |
|00004e20| 74 68 65 20 6b 76 69 65 | 77 20 6c 6f 63 61 6c 20 |the kvie|w local |
|00004e30| 76 61 72 69 61 62 6c 65 | 20 6f 66 20 74 68 65 20 |variable| of the |
|00004e40| 63 75 72 72 65 6e 74 0a | 62 75 66 66 65 72 20 6f |current.|buffer o|
|00004e50| 72 20 73 6f 6d 65 20 6f | 74 68 65 72 20 6b 76 69 |r some o|ther kvi|
|00004e60| 65 77 2c 20 61 6e 64 20 | 73 68 6f 75 6c 64 20 6f |ew, and |should o|
|00004e70| 70 65 72 61 74 65 20 75 | 70 6f 6e 20 74 68 65 20 |perate u|pon the |
|00004e80| 63 65 6c 6c 20 61 74 20 | 70 6f 69 6e 74 2e 0a 0a |cell at |point...|
|00004e90| 60 43 65 6c 6c 2d 69 6e | 64 65 6e 74 27 20 63 6f |`Cell-in|dent' co|
|00004ea0| 6e 74 61 69 6e 73 20 74 | 68 65 20 69 6e 64 65 6e |ntains t|he inden|
|00004eb0| 74 61 74 69 6f 6e 20 76 | 61 6c 75 65 20 6f 66 20 |tation v|alue of |
|00004ec0| 74 68 65 20 66 69 72 73 | 74 20 63 65 6c 6c 20 6d |the firs|t cell m|
|00004ed0| 61 70 70 65 64 20 77 68 | 65 6e 0a 46 55 4e 43 20 |apped wh|en.FUNC |
|00004ee0| 69 73 20 63 61 6c 6c 65 | 64 20 73 6f 20 74 68 61 |is calle|d so tha|
|00004ef0| 74 20 69 74 20 6d 61 79 | 20 74 65 73 74 20 61 67 |t it may| test ag|
|00004f00| 61 69 6e 73 74 20 74 68 | 69 73 20 76 61 6c 75 65 |ainst th|is value|
|00004f10| 2e 20 20 60 4c 61 62 65 | 6c 2d 73 65 70 2d 6c 65 |. `Labe|l-sep-le|
|00004f20| 6e 27 0a 63 6f 6e 74 61 | 69 6e 73 20 74 68 65 20 |n'.conta|ins the |
|00004f30| 6c 61 62 65 6c 20 73 65 | 70 61 72 61 74 6f 72 20 |label se|parator |
|00004f40| 6c 65 6e 67 74 68 2e 0a | 0a 53 65 65 20 61 6c 73 |length..|.See als|
|00004f50| 6f 20 27 6b 76 69 65 77 | 3a 6d 61 70 2d 62 72 61 |o 'kview|:map-bra|
|00004f60| 6e 63 68 27 20 61 6e 64 | 20 27 6b 76 69 65 77 3a |nch' and| 'kview:|
|00004f70| 6d 61 70 2d 74 72 65 65 | 27 2e 22 5d 29 0a 28 66 |map-tree|'."]).(f|
|00004f80| 73 65 74 20 27 6b 76 69 | 65 77 3a 6d 61 70 2d 74 |set 'kvi|ew:map-t|
|00004f90| 72 65 65 20 23 5b 28 66 | 75 6e 63 20 6b 76 69 65 |ree #[(f|unc kvie|
|00004fa0| 77 20 26 6f 70 74 69 6f | 6e 61 6c 20 74 6f 70 2d |w &optio|nal top-|
|00004fb0| 70 20 76 69 73 69 62 6c | 65 2d 70 29 20 22 c0 c1 |p visibl|e-p) "..|
|00004fc0| 5c 6e 21 1b 1c 8a c5 5c | 6e 21 71 88 0e 06 ab 96 |\n!....\|n!q.....|
|00004fd0| 65 62 88 c7 20 88 0e 08 | 5c 6e 21 0c 42 14 c9 0e |eb.. ...|\n!.B...|
|00004fe0| 5c 6e 0b 5c 22 ac 72 aa | 9e cb c0 0b 5c 22 1e 0c |\n.\".r.|....\"..|
|00004ff0| 0e 08 5c 6e 21 0c 42 14 | c9 0e 5c 6e 0b 5c 22 ab |..\n!.B.|..\n.\".|
|00005000| 89 cb c0 0b 5c 22 0e 0c | 56 ac 69 29 29 0c 9f 2a |....\"..|V.i))..*|
|00005010| 87 22 20 5b 6e 69 6c 20 | 6b 76 69 65 77 3a 6c 61 |." [nil |kview:la|
|00005020| 62 65 6c 2d 73 65 70 61 | 72 61 74 6f 72 2d 6c 65 |bel-sepa|rator-le|
|00005030| 6e 67 74 68 20 6b 76 69 | 65 77 20 6c 61 62 65 6c |ngth kvi|ew label|
|00005040| 2d 73 65 70 2d 6c 65 6e | 20 72 65 73 75 6c 74 73 |-sep-len| results|
|00005050| 20 6b 76 69 65 77 3a 62 | 75 66 66 65 72 20 74 6f | kview:b|uffer to|
|00005060| 70 2d 70 20 6b 76 69 65 | 77 3a 65 6e 64 2d 6f 66 |p-p kvie|w:end-of|
|00005070| 2d 61 63 74 75 61 6c 2d | 6c 69 6e 65 20 66 75 6e |-actual-|line fun|
|00005080| 63 20 6b 63 65 6c 6c 2d | 76 69 65 77 3a 6e 65 78 |c kcell-|view:nex|
|00005090| 74 20 76 69 73 69 62 6c | 65 2d 70 20 6b 63 65 6c |t visibl|e-p kcel|
|000050a0| 6c 2d 76 69 65 77 3a 69 | 6e 64 65 6e 74 20 63 65 |l-view:i|ndent ce|
|000050b0| 6c 6c 2d 69 6e 64 65 6e | 74 5d 20 33 20 22 5c 0a |ll-inden|t] 3 "\.|
|000050c0| 41 70 70 6c 69 65 73 20 | 46 55 4e 43 20 74 6f 20 |Applies |FUNC to |
|000050d0| 74 68 65 20 74 72 65 65 | 20 73 74 61 72 74 69 6e |the tree| startin|
|000050e0| 67 20 61 74 20 70 6f 69 | 6e 74 20 77 69 74 68 69 |g at poi|nt withi|
|000050f0| 6e 20 4b 56 49 45 57 20 | 61 6e 64 20 72 65 74 75 |n KVIEW |and retu|
|00005100| 72 6e 73 20 72 65 73 75 | 6c 74 73 20 61 73 20 61 |rns resu|lts as a|
|00005110| 20 6c 69 73 74 2e 0a 57 | 69 74 68 20 6f 70 74 69 | list..W|ith opti|
|00005120| 6f 6e 61 6c 20 54 4f 50 | 2d 50 20 6e 6f 6e 2d 6e |onal TOP|-P non-n|
|00005130| 69 6c 2c 20 6d 61 70 73 | 20 6f 76 65 72 20 61 6c |il, maps| over al|
|00005140| 6c 20 6f 66 20 6b 76 69 | 65 77 27 73 20 63 65 6c |l of kvi|ew's cel|
|00005150| 6c 73 2e 0a 57 69 74 68 | 20 6f 70 74 69 6f 6e 61 |ls..With| optiona|
|00005160| 6c 20 56 49 53 49 42 4c | 45 2d 50 2c 20 63 6f 6e |l VISIBL|E-P, con|
|00005170| 73 69 64 65 72 73 20 6f | 6e 6c 79 20 74 68 6f 73 |siders o|nly thos|
|00005180| 65 20 63 65 6c 6c 73 20 | 74 68 61 74 20 61 72 65 |e cells |that are|
|00005190| 20 76 69 73 69 62 6c 65 | 20 69 6e 20 74 68 65 0a | visible| in the.|
|000051a0| 76 69 65 77 2e 0a 0a 46 | 55 4e 43 20 73 68 6f 75 |view...F|UNC shou|
|000051b0| 6c 64 20 74 61 6b 65 20 | 6f 6e 65 20 61 72 67 75 |ld take |one argu|
|000051c0| 6d 65 6e 74 2c 20 74 68 | 65 20 6b 76 69 65 77 20 |ment, th|e kview |
|000051d0| 6c 6f 63 61 6c 20 76 61 | 72 69 61 62 6c 65 20 6f |local va|riable o|
|000051e0| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 0a 62 75 |f the cu|rrent.bu|
|000051f0| 66 66 65 72 20 6f 72 20 | 73 6f 6d 65 20 6f 74 68 |ffer or |some oth|
|00005200| 65 72 20 6b 76 69 65 77 | 2c 20 61 6e 64 20 73 68 |er kview|, and sh|
|00005210| 6f 75 6c 64 20 6f 70 65 | 72 61 74 65 20 75 70 6f |ould ope|rate upo|
|00005220| 6e 20 74 68 65 20 63 65 | 6c 6c 20 61 74 20 70 6f |n the ce|ll at po|
|00005230| 69 6e 74 2e 0a 0a 60 43 | 65 6c 6c 2d 69 6e 64 65 |int...`C|ell-inde|
|00005240| 6e 74 27 20 63 6f 6e 74 | 61 69 6e 73 20 74 68 65 |nt' cont|ains the|
|00005250| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 76 61 6c | indenta|tion val|
|00005260| 75 65 20 6f 66 20 74 68 | 65 20 66 69 72 73 74 20 |ue of th|e first |
|00005270| 63 65 6c 6c 20 6d 61 70 | 70 65 64 20 77 68 65 6e |cell map|ped when|
|00005280| 0a 46 55 4e 43 20 69 73 | 20 63 61 6c 6c 65 64 20 |.FUNC is| called |
|00005290| 73 6f 20 74 68 61 74 20 | 69 74 20 6d 61 79 20 74 |so that |it may t|
|000052a0| 65 73 74 20 61 67 61 69 | 6e 73 74 20 74 68 69 73 |est agai|nst this|
|000052b0| 20 76 61 6c 75 65 2e 20 | 20 60 4c 61 62 65 6c 2d | value. | `Label-|
|000052c0| 73 65 70 2d 6c 65 6e 27 | 0a 63 6f 6e 74 61 69 6e |sep-len'|.contain|
|000052d0| 73 20 74 68 65 20 6c 61 | 62 65 6c 20 73 65 70 61 |s the la|bel sepa|
|000052e0| 72 61 74 6f 72 20 6c 65 | 6e 67 74 68 2e 0a 0a 53 |rator le|ngth...S|
|000052f0| 65 65 20 61 6c 73 6f 20 | 27 6b 76 69 65 77 3a 6d |ee also |'kview:m|
|00005300| 61 70 2d 62 72 61 6e 63 | 68 27 20 61 6e 64 20 27 |ap-branc|h' and '|
|00005310| 6b 76 69 65 77 3a 6d 61 | 70 2d 73 69 62 6c 69 6e |kview:ma|p-siblin|
|00005320| 67 73 27 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6b |gs'."]).|(fset 'k|
|00005330| 76 69 65 77 3a 6d 6f 76 | 65 20 23 5b 28 66 72 6f |view:mov|e #[(fro|
|00005340| 6d 2d 73 74 61 72 74 20 | 66 72 6f 6d 2d 65 6e 64 |m-start |from-end|
|00005350| 20 74 6f 2d 73 74 61 72 | 74 20 66 72 6f 6d 2d 69 | to-star|t from-i|
|00005360| 6e 64 65 6e 74 20 74 6f | 2d 69 6e 64 65 6e 74 20 |ndent to|-indent |
|00005370| 26 6f 70 74 69 6f 6e 61 | 6c 20 63 6f 70 79 2d 70 |&optiona|l copy-p|
|00005380| 20 66 69 6c 6c 2d 70 29 | 20 22 08 09 7b c2 20 0b | fill-p)| "..{. .|
|00005390| c4 93 c4 89 89 89 1d 1e | 06 1e 07 1e 08 1e 09 1e |........|........|
|000053a0| 5c 6e 0e 0b ac 84 08 09 | 7c 88 0e 09 62 88 0e 5c |\n......||...b..\|
|000053b0| 6e 63 88 60 16 06 0e 0c | 0e 0d 55 84 d8 00 8c 0e |nc.`....|..U.....|
|000053c0| 09 0e 06 7d 88 ce cf 0e | 10 d1 23 16 08 d2 0e 09 |...}....|..#.....|
|000053d0| 0e 06 d3 d4 d1 25 88 65 | 62 88 0e 0c 0e 0d 57 ab |.....%.e|b.....W.|
|000053e0| 9e d5 0e 0d 0e 0c 5a 54 | d6 5c 22 16 07 d7 d8 c4 |......ZT|.\".....|
|000053f0| d1 23 ab d7 d9 0e 07 d1 | 89 23 88 da 79 88 aa 6d |.#......|.#..y..m|
|00005400| db d5 0e 0c 0e 0d 5a d6 | 5c 22 50 16 07 d7 0e 07 |......Z.|\"P.....|
|00005410| c4 d1 23 ab 8b d9 dc d1 | 89 23 88 da 79 88 aa 6d |..#.....|.#..y..m|
|00005420| 0e 0c 0e 0d 5a dd 0e 10 | 21 5a da 5a 89 15 de 55 |....Z...|!Z.Z...U|
|00005430| ac 9a db d5 0e 0c 0e 0d | 5a dd 0e 10 21 5a da 5a |........|Z...!Z.Z|
|00005440| d6 5c 22 50 16 07 ce df | 0e 10 d1 23 88 0e 20 ab |.\"P....|...#.. .|
|00005450| 87 ce e1 0e 10 d1 23 88 | e2 c4 0e 08 5c 22 ab 87 |......#.|....\"..|
|00005460| ce e3 0e 10 d1 23 88 29 | 0e 09 62 88 0e 09 c4 89 |.....#.)|..b.....|
|00005470| 93 2e 06 87 22 20 5b 66 | 72 6f 6d 2d 73 74 61 72 |...." [f|rom-star|
|00005480| 74 20 66 72 6f 6d 2d 65 | 6e 64 20 6d 61 6b 65 2d |t from-e|nd make-|
|00005490| 6d 61 72 6b 65 72 20 74 | 6f 2d 73 74 61 72 74 20 |marker t|o-start |
|000054a0| 6e 69 6c 20 73 70 61 63 | 65 20 6e 65 77 2d 65 6e |nil spac|e new-en|
|000054b0| 64 20 65 78 70 72 20 63 | 6f 6c 6c 61 70 73 65 64 |d expr c|ollapsed|
|000054c0| 2d 63 65 6c 6c 73 20 6e | 65 77 2d 73 74 61 72 74 |-cells n|ew-start|
|000054d0| 20 72 65 67 69 6f 6e 20 | 63 6f 70 79 2d 70 20 66 | region |copy-p f|
|000054e0| 72 6f 6d 2d 69 6e 64 65 | 6e 74 20 74 6f 2d 69 6e |rom-inde|nt to-in|
|000054f0| 64 65 6e 74 20 6b 76 69 | 65 77 3a 6d 61 70 2d 74 |dent kvi|ew:map-t|
|00005500| 72 65 65 20 23 5b 28 76 | 69 65 77 29 20 22 c0 c1 |ree #[(v|iew) "..|
|00005510| 5c 6e 5c 22 87 22 20 5b | 6b 63 65 6c 6c 2d 76 69 |\n\"." [|kcell-vi|
|00005520| 65 77 3a 63 6f 6c 6c 61 | 70 73 65 64 2d 70 20 6e |ew:colla|psed-p n|
|00005530| 69 6c 20 6c 61 62 65 6c | 2d 73 65 70 2d 6c 65 6e |il label|-sep-len|
|00005540| 5d 20 33 5d 20 6b 76 69 | 65 77 20 74 20 73 75 62 |] 3] kvi|ew t sub|
|00005550| 73 74 2d 63 68 61 72 2d | 69 6e 2d 72 65 67 69 6f |st-char-|in-regio|
|00005560| 6e 20 31 33 20 31 30 20 | 6d 61 6b 65 2d 73 74 72 |n 13 10 |make-str|
|00005570| 69 6e 67 20 33 32 20 72 | 65 2d 73 65 61 72 63 68 |ing 32 r|e-search|
|00005580| 2d 66 6f 72 77 61 72 64 | 20 22 5e 20 22 20 72 65 |-forward| "^ " re|
|00005590| 70 6c 61 63 65 2d 6d 61 | 74 63 68 20 31 20 22 5e |place-ma|tch 1 "^|
|000055a0| 22 20 22 22 20 6b 76 69 | 65 77 3a 6c 61 62 65 6c |" "" kvi|ew:label|
|000055b0| 2d 73 65 70 61 72 61 74 | 6f 72 2d 6c 65 6e 67 74 |-separat|or-lengt|
|000055c0| 68 20 30 20 23 5b 28 76 | 69 65 77 29 20 22 8a c0 |h 0 #[(v|iew) "..|
|000055d0| 79 88 c1 5c 6e 21 ad 85 | c3 c4 c5 89 23 29 87 22 |y..\n!..|....#)."|
|000055e0| 20 5b 30 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 65 | [0 look|ing-at e|
|000055f0| 78 70 72 20 72 65 70 6c | 61 63 65 2d 6d 61 74 63 |xpr repl|ace-matc|
|00005600| 68 20 22 22 20 74 5d 20 | 34 5d 20 66 69 6c 6c 2d |h "" t] |4] fill-|
|00005610| 70 20 23 5b 28 76 69 65 | 77 29 20 22 c0 c1 c2 5c |p #[(vie|w) "...\|
|00005620| 22 87 22 20 5b 6b 6f 74 | 6c 2d 6d 6f 64 65 3a 66 |"." [kot|l-mode:f|
|00005630| 69 6c 6c 2d 63 65 6c 6c | 20 6e 69 6c 20 74 5d 20 |ill-cell| nil t] |
|00005640| 33 5d 20 64 65 6c 71 20 | 23 5b 28 76 69 65 77 29 |3] delq |#[(view)|
|00005650| 20 22 08 40 ab 85 c1 c2 | 0b 5c 22 88 08 41 89 10 | ".@....|.\"..A..|
|00005660| 87 22 20 5b 63 6f 6c 6c | 61 70 73 65 64 2d 63 65 |." [coll|apsed-ce|
|00005670| 6c 6c 73 20 6b 63 65 6c | 6c 2d 76 69 65 77 3a 63 |lls kcel|l-view:c|
|00005680| 6f 6c 6c 61 70 73 65 20 | 6e 69 6c 20 6c 61 62 65 |ollapse |nil labe|
|00005690| 6c 2d 73 65 70 2d 6c 65 | 6e 5d 20 33 5d 5d 20 37 |l-sep-le|n] 3]] 7|
|000056a0| 20 22 5c 0a 4d 6f 76 65 | 20 74 72 65 65 20 62 65 | "\.Move| tree be|
|000056b0| 74 77 65 65 6e 20 46 52 | 4f 4d 2d 53 54 41 52 54 |tween FR|OM-START|
|000056c0| 20 61 6e 64 20 46 52 4f | 4d 2d 45 4e 44 20 74 6f | and FRO|M-END to|
|000056d0| 20 54 4f 2d 53 54 41 52 | 54 2c 20 63 68 61 6e 67 | TO-STAR|T, chang|
|000056e0| 69 6e 67 20 46 52 4f 4d | 2d 49 4e 44 45 4e 54 20 |ing FROM|-INDENT |
|000056f0| 74 6f 20 54 4f 2d 49 4e | 44 45 4e 54 2e 0a 43 6f |to TO-IN|DENT..Co|
|00005700| 70 79 20 74 72 65 65 20 | 69 66 20 6f 70 74 69 6f |py tree |if optio|
|00005710| 6e 61 6c 20 43 4f 50 59 | 2d 50 20 69 73 20 6e 6f |nal COPY|-P is no|
|00005720| 6e 2d 6e 69 6c 2e 20 20 | 52 65 66 69 6c 6c 20 63 |n-nil. |Refill c|
|00005730| 65 6c 6c 73 20 69 66 20 | 6f 70 74 69 6f 6e 61 6c |ells if |optional|
|00005740| 0a 46 49 4c 4c 2d 50 20 | 69 73 20 6e 6f 6e 2d 6e |.FILL-P |is non-n|
|00005750| 69 6c 2e 20 20 4c 65 61 | 76 65 20 70 6f 69 6e 74 |il. Lea|ve point|
|00005760| 20 61 74 20 54 4f 2d 53 | 54 41 52 54 2e 22 5d 29 | at TO-S|TART."])|
|00005770| 0a 28 66 73 65 74 20 27 | 6b 76 69 65 77 3a 73 65 |.(fset '|kview:se|
|00005780| 74 2d 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 23 5b |t-buffer|-name #[|
|00005790| 28 6b 76 69 65 77 20 6e | 65 77 2d 6e 61 6d 65 29 |(kview n|ew-name)|
|000057a0| 20 22 c0 09 21 ab 94 8a | c2 09 21 89 1b ab 83 0b | "..!...|..!.....|
|000057b0| 71 88 29 c4 09 c5 0e 06 | 23 29 87 c7 c8 21 87 22 |q.).....|#)...!."|
|000057c0| 20 5b 6b 76 69 65 77 3a | 69 73 2d 70 20 6b 76 69 | [kview:|is-p kvi|
|000057d0| 65 77 20 6b 76 69 65 77 | 3a 62 75 66 66 65 72 20 |ew kview|:buffer |
|000057e0| 62 75 66 20 6b 76 69 65 | 77 3a 73 65 74 2d 61 74 |buf kvie|w:set-at|
|000057f0| 74 72 20 76 69 65 77 2d | 62 75 66 66 65 72 2d 6e |tr view-|buffer-n|
|00005800| 61 6d 65 20 6e 65 77 2d | 6e 61 6d 65 20 65 72 72 |ame new-|name err|
|00005810| 6f 72 20 22 28 6b 76 69 | 65 77 3a 73 65 74 2d 62 |or "(kvi|ew:set-b|
|00005820| 75 66 66 65 72 2d 6e 61 | 6d 65 29 3a 20 49 6e 76 |uffer-na|me): Inv|
|00005830| 61 6c 69 64 20 6b 76 69 | 65 77 20 61 72 67 75 6d |alid kvi|ew argum|
|00005840| 65 6e 74 22 5d 20 35 20 | 22 5c 0a 53 65 74 20 6b |ent"] 5 |"\.Set k|
|00005850| 76 69 65 77 27 73 20 62 | 75 66 66 65 72 20 6e 61 |view's b|uffer na|
|00005860| 6d 65 20 74 6f 20 4e 45 | 57 2d 4e 41 4d 45 2e 22 |me to NE|W-NAME."|
|00005870| 5d 29 0a 28 66 73 65 74 | 20 27 6b 76 69 65 77 3a |]).(fset| 'kview:|
|00005880| 73 65 74 2d 6c 61 62 65 | 6c 2d 74 79 70 65 20 23 |set-labe|l-type #|
|00005890| 5b 28 6b 76 69 65 77 20 | 6e 65 77 2d 74 79 70 65 |[(kview |new-type|
|000058a0| 29 20 22 08 c1 3e ac 85 | c2 c3 08 5c 22 88 08 c4 |) "..>..|...\"...|
|000058b0| 3d ab 84 c2 c5 21 88 c6 | 0e 07 21 89 1e 08 08 3d |=....!..|..!....=|
|000058c0| 3f ad 8e c9 08 21 88 ca | 0e 07 cb 08 23 88 cc 08 |?....!..|....#...|
|000058d0| 21 29 87 22 20 5b 6e 65 | 77 2d 74 79 70 65 20 28 |!)." [ne|w-type (|
|000058e0| 61 6c 70 68 61 20 6c 65 | 67 61 6c 20 69 64 20 6e |alpha le|gal id n|
|000058f0| 6f 20 70 61 72 74 69 61 | 6c 2d 61 6c 70 68 61 20 |o partia|l-alpha |
|00005900| 73 74 61 72 29 20 65 72 | 72 6f 72 20 22 28 6b 76 |star) er|ror "(kv|
|00005910| 69 65 77 3a 73 65 74 2d | 6c 61 62 65 6c 2d 74 79 |iew:set-|label-ty|
|00005920| 70 65 29 3a 20 49 6e 76 | 61 6c 69 64 20 6c 61 62 |pe): Inv|alid lab|
|00005930| 65 6c 20 74 79 70 65 2c | 20 27 25 73 27 2e 22 20 |el type,| '%s'." |
|00005940| 70 61 72 74 69 61 6c 2d | 61 6c 70 68 61 20 22 28 |partial-|alpha "(|
|00005950| 6b 76 69 65 77 3a 73 65 | 74 2d 6c 61 62 65 6c 2d |kview:se|t-label-|
|00005960| 74 79 70 65 29 3a 20 50 | 61 72 74 69 61 6c 2d 61 |type): P|artial-a|
|00005970| 6c 70 68 61 20 6c 61 62 | 65 6c 73 20 64 6f 6e 27 |lpha lab|els don'|
|00005980| 74 20 77 6f 72 6b 2c 20 | 63 68 6f 6f 73 65 20 61 |t work, |choose a|
|00005990| 6e 6f 74 68 65 72 20 74 | 79 70 65 22 20 6b 76 69 |nother t|ype" kvi|
|000059a0| 65 77 3a 6c 61 62 65 6c | 2d 74 79 70 65 20 6b 76 |ew:label|-type kv|
|000059b0| 69 65 77 20 6f 6c 64 2d | 6c 61 62 65 6c 2d 74 79 |iew old-|label-ty|
|000059c0| 70 65 20 6b 6c 61 62 65 | 6c 2d 74 79 70 65 3a 73 |pe klabe|l-type:s|
|000059d0| 65 74 2d 6c 61 62 65 6c | 73 20 6b 76 69 65 77 3a |et-label|s kview:|
|000059e0| 73 65 74 2d 61 74 74 72 | 20 6c 61 62 65 6c 2d 74 |set-attr| label-t|
|000059f0| 79 70 65 20 6b 76 69 65 | 77 3a 73 65 74 2d 66 75 |ype kvie|w:set-fu|
|00005a00| 6e 63 74 69 6f 6e 73 5d | 20 35 20 22 5c 0a 43 68 |nctions]| 5 "\.Ch|
|00005a10| 61 6e 67 65 20 6b 76 69 | 65 77 27 73 20 6c 61 62 |ange kvi|ew's lab|
|00005a20| 65 6c 20 64 69 73 70 6c | 61 79 20 74 79 70 65 20 |el displ|ay type |
|00005a30| 74 6f 20 4e 45 57 2d 54 | 59 50 45 2c 20 75 70 64 |to NEW-T|YPE, upd|
|00005a40| 61 74 69 6e 67 20 61 6c | 6c 20 64 69 73 70 6c 61 |ating al|l displa|
|00005a50| 79 65 64 20 6c 61 62 65 | 6c 73 2e 0a 53 65 65 20 |yed labe|ls..See |
|00005a60| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 66 6f |document|ation fo|
|00005a70| 72 20 76 61 72 69 61 62 | 6c 65 2c 20 6b 76 69 65 |r variab|le, kvie|
|00005a80| 77 3a 64 65 66 61 75 6c | 74 2d 6c 61 62 65 6c 2d |w:defaul|t-label-|
|00005a90| 74 79 70 65 2c 20 66 6f | 72 0a 76 61 6c 69 64 20 |type, fo|r.valid |
|00005aa0| 76 61 6c 75 65 73 20 6f | 66 20 4e 45 57 2d 54 59 |values o|f NEW-TY|
|00005ab0| 50 45 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |PE." (by|te-code |
|00005ac0| 22 08 c1 c2 08 21 c1 1b | 1c 1d c6 c7 c8 0c 5c 22 |"....!..|......\"|
|00005ad0| c9 c1 ca 24 89 13 cb 98 | ab 83 0c aa 83 cc 0b 21 |...$....|.......!|
|00005ae0| 2b 44 87 22 20 5b 6b 76 | 69 65 77 20 6e 69 6c 20 |+D." [kv|iew nil |
|00005af0| 6b 76 69 65 77 3a 6c 61 | 62 65 6c 2d 74 79 70 65 |kview:la|bel-type|
|00005b00| 20 6e 65 77 2d 74 79 70 | 65 2d 73 74 72 20 6c 61 | new-typ|e-str la|
|00005b10| 62 65 6c 2d 74 79 70 65 | 20 63 6f 6d 70 6c 65 74 |bel-type| complet|
|00005b20| 69 6f 6e 2d 69 67 6e 6f | 72 65 2d 63 61 73 65 20 |ion-igno|re-case |
|00005b30| 63 6f 6d 70 6c 65 74 69 | 6e 67 2d 72 65 61 64 20 |completi|ng-read |
|00005b40| 66 6f 72 6d 61 74 20 22 | 56 69 65 77 20 6c 61 62 |format "|View lab|
|00005b50| 65 6c 20 74 79 70 65 20 | 28 63 75 72 72 65 6e 74 |el type |(current|
|00005b60| 20 3d 20 25 73 29 3a 20 | 22 20 28 28 22 61 6c 70 | = %s): |" (("alp|
|00005b70| 68 61 22 29 20 28 22 6c | 65 67 61 6c 22 29 20 28 |ha") ("l|egal") (|
|00005b80| 22 69 64 22 29 20 28 22 | 6e 6f 22 29 20 28 22 70 |"id") ("|no") ("p|
|00005b90| 61 72 74 69 61 6c 2d 61 | 6c 70 68 61 22 29 20 28 |artial-a|lpha") (|
|00005ba0| 22 73 74 61 72 22 29 29 | 20 74 20 22 22 20 69 6e |"star"))| t "" in|
|00005bb0| 74 65 72 6e 5d 20 36 29 | 5d 29 0a 28 66 73 65 74 |tern] 6)|]).(fset|
|00005bc0| 20 27 6b 76 69 65 77 3a | 74 6f 70 2d 63 65 6c 6c | 'kview:|top-cell|
|00005bd0| 20 23 5b 28 6b 76 69 65 | 77 29 20 22 c0 09 21 ad | #[(kvie|w) "..!.|
|00005be0| 84 c2 09 c3 5c 22 87 22 | 20 5b 6b 76 69 65 77 3a |....\"."| [kview:|
|00005bf0| 69 73 2d 70 20 6b 76 69 | 65 77 20 6b 76 69 65 77 |is-p kvi|ew kview|
|00005c00| 3a 67 65 74 2d 61 74 74 | 72 20 74 6f 70 2d 63 65 |:get-att|r top-ce|
|00005c10| 6c 6c 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 20 |ll] 3 "\|.Return |
|00005c20| 6b 76 69 65 77 27 73 20 | 69 6e 76 69 73 69 62 6c |kview's |invisibl|
|00005c30| 65 20 74 6f 70 20 63 65 | 6c 6c 20 77 69 74 68 20 |e top ce|ll with |
|00005c40| 69 64 73 74 61 6d 70 20 | 30 20 6f 72 20 6e 69 6c |idstamp |0 or nil|
|00005c50| 20 69 66 20 61 72 67 75 | 6d 65 6e 74 20 69 73 20 | if argu|ment is |
|00005c60| 6e 6f 74 20 61 20 6b 76 | 69 65 77 2e 22 5d 29 0a |not a kv|iew."]).|
|00005c70| 28 66 73 65 74 20 27 6b | 76 69 65 77 3a 76 61 6c |(fset 'k|view:val|
|00005c80| 69 64 2d 70 6f 73 69 74 | 69 6f 6e 2d 70 20 23 5b |id-posit|ion-p #[|
|00005c90| 28 26 6f 70 74 69 6f 6e | 61 6c 20 70 6f 73 29 20 |(&option|al pos) |
|00005ca0| 22 08 ac 85 69 c1 20 59 | 87 c2 08 21 ac 85 c3 c4 |"...i. Y|...!....|
|00005cb0| 08 5c 22 87 08 65 57 ac | 85 08 64 56 ab 85 c3 c5 |.\"..eW.|..dV....|
|00005cc0| 08 5c 22 87 8a 08 62 88 | 69 c1 20 59 29 87 22 20 |.\"...b.|i. Y)." |
|00005cd0| 5b 70 6f 73 20 6b 63 65 | 6c 6c 2d 76 69 65 77 3a |[pos kce|ll-view:|
|00005ce0| 69 6e 64 65 6e 74 20 69 | 6e 74 65 67 65 72 2d 6f |indent i|nteger-o|
|00005cf0| 72 2d 6d 61 72 6b 65 72 | 2d 70 20 65 72 72 6f 72 |r-marker|-p error|
|00005d00| 20 22 28 6b 76 69 65 77 | 3a 76 61 6c 69 64 2d 70 | "(kview|:valid-p|
|00005d10| 6f 73 69 74 69 6f 6e 2d | 70 29 3a 20 41 72 67 75 |osition-|p): Argu|
|00005d20| 6d 65 6e 74 20 50 4f 53 | 20 6e 6f 74 20 61 6e 20 |ment POS| not an |
|00005d30| 69 6e 74 65 67 65 72 5c | 6e 6f 72 20 6d 61 72 6b |integer\|nor mark|
|00005d40| 65 72 2c 20 27 25 73 27 | 22 20 22 28 6b 76 69 65 |er, '%s'|" "(kvie|
|00005d50| 77 3a 76 61 6c 69 64 2d | 70 6f 73 69 74 69 6f 6e |w:valid-|position|
|00005d60| 2d 70 29 3a 20 49 6e 76 | 61 6c 69 64 20 50 4f 53 |-p): Inv|alid POS|
|00005d70| 20 61 72 67 75 6d 65 6e | 74 2c 20 27 25 64 27 22 | argumen|t, '%d'"|
|00005d80| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 6e 6f |] 3 "\.R|eturn no|
|00005d90| 6e 2d 6e 69 6c 20 69 66 | 66 20 70 6f 69 6e 74 20 |n-nil if|f point |
|00005da0| 6f 72 20 6f 70 74 69 6f | 6e 61 6c 20 50 4f 53 20 |or optio|nal POS |
|00005db0| 69 73 20 61 74 20 61 20 | 70 6f 73 69 74 69 6f 6e |is at a |position|
|00005dc0| 20 77 68 65 72 65 20 65 | 64 69 74 69 6e 67 20 6d | where e|diting m|
|00005dd0| 61 79 20 6f 63 63 75 72 | 2e 0a 54 68 65 20 72 65 |ay occur|..The re|
|00005de0| 61 64 2d 6f 6e 6c 79 20 | 70 6f 73 69 74 69 6f 6e |ad-only |position|
|00005df0| 73 20 62 65 74 77 65 65 | 6e 20 63 65 6c 6c 73 20 |s betwee|n cells |
|00005e00| 61 6e 64 20 77 69 74 68 | 69 6e 20 63 65 6c 6c 20 |and with|in cell |
|00005e10| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 73 20 61 72 65 |indentat|ions are|
|00005e20| 20 69 6e 76 61 6c 69 64 | 2e 22 5d 29 0a 28 66 73 | invalid|."]).(fs|
|00005e30| 65 74 20 27 6b 76 69 65 | 77 3a 67 65 74 2d 61 74 |et 'kvie|w:get-at|
|00005e40| 74 72 20 23 5b 28 6f 62 | 6a 20 61 74 74 72 69 62 |tr #[(ob|j attrib|
|00005e50| 75 74 65 29 20 22 08 c1 | 5c 6e 3e 41 40 3e 41 40 |ute) "..|\n>A@>A@|
|00005e60| 87 22 20 5b 61 74 74 72 | 69 62 75 74 65 20 70 6c |." [attr|ibute pl|
|00005e70| 69 73 74 20 6f 62 6a 5d | 20 33 20 22 5c 0a 52 65 |ist obj]| 3 "\.Re|
|00005e80| 74 75 72 6e 20 74 68 65 | 20 76 61 6c 75 65 20 6f |turn the| value o|
|00005e90| 66 20 4f 42 4a 45 43 54 | 27 73 20 41 54 54 52 49 |f OBJECT|'s ATTRI|
|00005ea0| 42 55 54 45 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |BUTE."])|.(fset '|
|00005eb0| 6b 76 69 65 77 3a 73 65 | 74 2d 61 74 74 72 20 23 |kview:se|t-attr #|
|00005ec0| 5b 28 6f 62 6a 20 61 74 | 74 72 69 62 75 74 65 20 |[(obj at|tribute |
|00005ed0| 76 61 6c 75 65 29 20 22 | c0 09 3e 41 89 1a 40 18 |value) "|..>A..@.|
|00005ee0| 0b 08 3e 89 1c ab 87 0c | 41 0d a0 88 aa 88 5c 6e |..>.....|A.....\n|
|00005ef0| 0b 0d 44 08 a4 a0 88 0d | 2b 87 22 20 5b 70 6c 69 |..D.....|+." [pli|
|00005f00| 73 74 20 6f 62 6a 20 70 | 6c 69 73 74 2d 70 74 72 |st obj p|list-ptr|
|00005f10| 20 61 74 74 72 69 62 75 | 74 65 20 61 74 74 72 20 | attribu|te attr |
|00005f20| 76 61 6c 75 65 5d 20 34 | 20 22 5c 0a 53 65 74 20 |value] 4| "\.Set |
|00005f30| 4f 42 4a 45 43 54 27 73 | 20 41 54 54 52 49 42 55 |OBJECT's| ATTRIBU|
|00005f40| 54 45 20 74 6f 20 56 41 | 4c 55 45 20 61 6e 64 20 |TE to VA|LUE and |
|00005f50| 72 65 74 75 72 6e 20 56 | 41 4c 55 45 2e 22 5d 29 |return V|ALUE."])|
|00005f60| 0a 28 66 73 65 74 20 27 | 6b 76 69 65 77 3a 73 65 |.(fset '|kview:se|
|00005f70| 74 2d 66 75 6e 63 74 69 | 6f 6e 73 20 23 5b 28 6c |t-functi|ons #[(l|
|00005f80| 61 62 65 6c 2d 74 79 70 | 65 29 20 22 c0 09 c2 c3 |abel-typ|e) "....|
|00005f90| 0c 21 23 88 c0 09 c5 c6 | 0c 21 23 88 c0 09 c7 c8 |.!#.....|.!#.....|
|00005fa0| 0c 21 23 88 c0 09 c9 ca | 0c 21 23 88 c0 09 cb cc |.!#.....|.!#.....|
|00005fb0| 0c 21 23 87 22 20 5b 6b | 76 69 65 77 3a 73 65 74 |.!#." [k|view:set|
|00005fc0| 2d 61 74 74 72 20 6b 76 | 69 65 77 20 6c 61 62 65 |-attr kv|iew labe|
|00005fd0| 6c 2d 66 75 6e 63 74 69 | 6f 6e 20 6b 6c 61 62 65 |l-functi|on klabe|
|00005fe0| 6c 2d 74 79 70 65 3a 66 | 75 6e 63 74 69 6f 6e 20 |l-type:f|unction |
|00005ff0| 6c 61 62 65 6c 2d 74 79 | 70 65 20 6c 61 62 65 6c |label-ty|pe label|
|00006000| 2d 63 68 69 6c 64 20 6b | 6c 61 62 65 6c 2d 74 79 |-child k|label-ty|
|00006010| 70 65 3a 63 68 69 6c 64 | 20 6c 61 62 65 6c 2d 69 |pe:child| label-i|
|00006020| 6e 63 72 65 6d 65 6e 74 | 20 6b 6c 61 62 65 6c 2d |ncrement| klabel-|
|00006030| 74 79 70 65 3a 69 6e 63 | 72 65 6d 65 6e 74 20 6c |type:inc|rement l|
|00006040| 61 62 65 6c 2d 70 61 72 | 65 6e 74 20 6b 6c 61 62 |abel-par|ent klab|
|00006050| 65 6c 2d 74 79 70 65 3a | 70 61 72 65 6e 74 20 74 |el-type:|parent t|
|00006060| 6f 2d 6c 61 62 65 6c 2d | 65 6e 64 20 6b 6c 61 62 |o-label-|end klab|
|00006070| 65 6c 2d 74 79 70 65 3a | 74 6f 2d 6c 61 62 65 6c |el-type:|to-label|
|00006080| 2d 65 6e 64 5d 20 35 20 | 22 5c 0a 53 65 74 75 70 |-end] 5 |"\.Setup|
|00006090| 20 66 75 6e 63 74 69 6f | 6e 73 20 77 68 69 63 68 | functio|ns which|
|000060a0| 20 68 61 6e 64 6c 65 20 | 6c 61 62 65 6c 73 20 6f | handle |labels o|
|000060b0| 66 20 4c 41 42 45 4c 2d | 54 59 50 45 20 66 6f 72 |f LABEL-|TYPE for|
|000060c0| 20 63 75 72 72 65 6e 74 | 20 76 69 65 77 2e 22 5d | current| view."]|
|000060d0| 29 0a 28 66 73 65 74 20 | 27 6b 76 69 65 77 3a 73 |).(fset |'kview:s|
|000060e0| 65 74 2d 6c 61 62 65 6c | 2d 73 65 70 61 72 61 74 |et-label|-separat|
|000060f0| 6f 72 20 23 5b 28 6b 76 | 69 65 77 20 6c 61 62 65 |or #[(kv|iew labe|
|00006100| 6c 2d 73 65 70 61 72 61 | 74 6f 72 29 20 22 c0 09 |l-separa|tor) "..|
|00006110| c2 5c 6e 23 88 c0 09 c3 | 5c 6e 47 23 87 22 20 5b |.\n#....|\nG#." [|
|00006120| 6b 76 69 65 77 3a 73 65 | 74 2d 61 74 74 72 20 6b |kview:se|t-attr k|
|00006130| 76 69 65 77 20 6c 61 62 | 65 6c 2d 73 65 70 61 72 |view lab|el-separ|
|00006140| 61 74 6f 72 20 6c 61 62 | 65 6c 2d 73 65 70 61 72 |ator lab|el-separ|
|00006150| 61 74 6f 72 2d 6c 65 6e | 67 74 68 5d 20 34 20 22 |ator-len|gth] 4 "|
|00006160| 5c 0a 53 65 74 20 77 69 | 74 68 69 6e 20 4b 56 49 |\.Set wi|thin KVI|
|00006170| 45 57 20 74 68 65 20 4c | 41 42 45 4c 2d 53 45 50 |EW the L|ABEL-SEP|
|00006180| 41 52 41 54 4f 52 20 28 | 61 20 73 74 72 69 6e 67 |ARATOR (|a string|
|00006190| 29 20 62 65 74 77 65 65 | 6e 20 6c 61 62 65 6c 73 |) betwee|n labels|
|000061a0| 20 61 6e 64 20 63 65 6c | 6c 20 63 6f 6e 74 65 6e | and cel|l conten|
|000061b0| 74 73 2e 22 5d 29 0a 28 | 70 72 6f 76 69 64 65 20 |ts."]).(|provide |
|000061c0| 27 6b 76 69 65 77 29 0a | |'kview).| |
+--------+-------------------------+-------------------------+--------+--------+
